Hệ thống quản lý bán hàng và hàng tồn kho trong c#

37.001 lượt xem;
  • SIS_DBDataSet2.Designer.vb
  • project /
1 '------------------------------------------------------------------------------
2 ' <auto-generated>
3 ' This code was generated by a tool.
4 ' Runtime Version:4.0.30319.42000
5 '
6 ' Changes to this file may cause incorrect behavior and will be lost if
7 ' the code is regenerated.
8 ' </auto-generated>
9 '------------------------------------------------------------------------------
10
11 Option Strict Off
12 Option Explicit On
13
14
15
16 '''<summary>
17 '''Represents a strongly typed in-memory cache of data.
18 '''</summary>
19 <Global.System.Serializable(), _
20  Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
21  Global.System.ComponentModel.ToolboxItem(true), _
22  Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
23  Global.System.Xml.Serialization.XmlRootAttribute("SIS_DBDataSet2"), _
24  Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
25 Partial Public Class SIS_DBDataSet2
26     Inherits Global.System.Data.DataSet
27     
28     Private tableActivation As ActivationDataTable
29     
30     Private tableCategory As CategoryDataTable
31     
32     Private tableCompany As CompanyDataTable
33     
34     Private tableCompany_Contacts As Company_ContactsDataTable
35     
36     Private tableCustomer As CustomerDataTable
37     
38     Private tableInvoice_Payment As Invoice_PaymentDataTable
39     
40     Private tableInvoice_Product As Invoice_ProductDataTable
41     
42     Private tableInvoice1_Payment As Invoice1_PaymentDataTable
43     
44     Private tableInvoice1_Product As Invoice1_ProductDataTable
45     
46     Private tableInvoiceInfo As InvoiceInfoDataTable
47     
48     Private tableInvoiceInfo1 As InvoiceInfo1DataTable
49     
50     Private tableLogs As LogsDataTable
51     
52     Private tableProduct As ProductDataTable
53     
54     Private tableProduct_Join As Product_JoinDataTable
55     
56     Private tableQuotation As QuotationDataTable
57     
58     Private tableQuotation_Join As Quotation_JoinDataTable
59     
60     Private tableRegistration As RegistrationDataTable
61     
62     Private tableService As ServiceDataTable
63     
64     Private tableSMSSetting As SMSSettingDataTable
65     
66     Private tableStock As StockDataTable
67     
68     Private tableStock_Product As Stock_ProductDataTable
69     
70     Private tableSubCategory As SubCategoryDataTable
71     
72     Private tableSupplier As SupplierDataTable
73     
74     Private tableTemp_Stock As Temp_StockDataTable
75     
76     Private tableVoucher As VoucherDataTable
77     
78     Private tableVoucher_OtherDetails As Voucher_OtherDetailsDataTable
79     
80     Private relationFK_Invoice_Payment_InvoiceInfo As Global.System.Data.DataRelation
81     
82     Private relationFK_Invoice_Product_InvoiceInfo As Global.System.Data.DataRelation
83     
84     Private relationFK_Invoice_Product_Product As Global.System.Data.DataRelation
85     
86     Private relationFK_Invoice1_Payment_InvoiceInfo1 As Global.System.Data.DataRelation
87     
88     Private relationFK_Invoice1_Product_InvoiceInfo1 As Global.System.Data.DataRelation
89     
90     Private relationFK_Invoice1_Product_Product As Global.System.Data.DataRelation
91     
92     Private relationFK_InvoiceInfo_Customer As Global.System.Data.DataRelation
93     
94     Private relationFK_InvoiceInfo1_Service As Global.System.Data.DataRelation
95     
96     Private relationFK_Logs_Registration As Global.System.Data.DataRelation
97     
98     Private relationFK_Product_SubCategory As Global.System.Data.DataRelation
99     
100     Private relationFK_Product_Join_Product As Global.System.Data.DataRelation
101     
102     Private relationFK_Quotation_Customer As Global.System.Data.DataRelation
103     
104     Private relationFK_Quotation_Join_Product As Global.System.Data.DataRelation
105     
106     Private relationFK_Quotation_Join_Quotation As Global.System.Data.DataRelation
107     
108     Private relationFK_Service_Customer As Global.System.Data.DataRelation
109     
110     Private relationFK_Stock_Supplier As Global.System.Data.DataRelation
111     
112     Private relationFK_Stock_Product_Product As Global.System.Data.DataRelation
113     
114     Private relationFK_Stock_Product_Stock As Global.System.Data.DataRelation
115     
116     Private relationFK_SubCategory_Category As Global.System.Data.DataRelation
117     
118     Private relationFK_Temp_Stock_Product As Global.System.Data.DataRelation
119     
120     Private relationFK_Voucher_OtherDetails_Voucher As Global.System.Data.DataRelation
121     
122     Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
123     
124     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
125      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
126     Public Sub New()
127         MyBase.New
128         Me.BeginInit
129         Me.InitClass
130         Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
131         AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
132         AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
133         Me.EndInit
134     End Sub
135     
136     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
137      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
138     Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
139         MyBase.New(info, context, false)
140         If (Me.IsBinarySerialized(info, context) = true) Then
141             Me.InitVars(false)
142             Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
143             AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
144             AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
145             Return
146         End If
147         Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
148         If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
149             Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
150             ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
151             If (Not (ds.Tables("Activation")) Is Nothing) Then
152                 MyBase.Tables.Add(New ActivationDataTable(ds.Tables("Activation")))
153             End If
154             If (Not (ds.Tables("Category")) Is Nothing) Then
155                 MyBase.Tables.Add(New CategoryDataTable(ds.Tables("Category")))
156             End If
157             If (Not (ds.Tables("Company")) Is Nothing) Then
158                 MyBase.Tables.Add(New CompanyDataTable(ds.Tables("Company")))
159             End If
160             If (Not (ds.Tables("Company_Contacts")) Is Nothing) Then
161                 MyBase.Tables.Add(New Company_ContactsDataTable(ds.Tables("Company_Contacts")))
162             End If
163             If (Not (ds.Tables("Customer")) Is Nothing) Then
164                 MyBase.Tables.Add(New CustomerDataTable(ds.Tables("Customer")))
165             End If
166             If (Not (ds.Tables("Invoice_Payment")) Is Nothing) Then
167                 MyBase.Tables.Add(New Invoice_PaymentDataTable(ds.Tables("Invoice_Payment")))
168             End If
169             If (Not (ds.Tables("Invoice_Product")) Is Nothing) Then
170                 MyBase.Tables.Add(New Invoice_ProductDataTable(ds.Tables("Invoice_Product")))
171             End If
172             If (Not (ds.Tables("Invoice1_Payment")) Is Nothing) Then
173                 MyBase.Tables.Add(New Invoice1_PaymentDataTable(ds.Tables("Invoice1_Payment")))
174             End If
175             If (Not (ds.Tables("Invoice1_Product")) Is Nothing) Then
176                 MyBase.Tables.Add(New Invoice1_ProductDataTable(ds.Tables("Invoice1_Product")))
177             End If
178             If (Not (ds.Tables("InvoiceInfo")) Is Nothing) Then
179                 MyBase.Tables.Add(New InvoiceInfoDataTable(ds.Tables("InvoiceInfo")))
180             End If
181             If (Not (ds.Tables("InvoiceInfo1")) Is Nothing) Then
182                 MyBase.Tables.Add(New InvoiceInfo1DataTable(ds.Tables("InvoiceInfo1")))
183             End If
184             If (Not (ds.Tables("Logs")) Is Nothing) Then
185                 MyBase.Tables.Add(New LogsDataTable(ds.Tables("Logs")))
186             End If
187             If (Not (ds.Tables("Product")) Is Nothing) Then
188                 MyBase.Tables.Add(New ProductDataTable(ds.Tables("Product")))
189             End If
190             If (Not (ds.Tables("Product_Join")) Is Nothing) Then
191                 MyBase.Tables.Add(New Product_JoinDataTable(ds.Tables("Product_Join")))
192             End If
193             If (Not (ds.Tables("Quotation")) Is Nothing) Then
194                 MyBase.Tables.Add(New QuotationDataTable(ds.Tables("Quotation")))
195             End If
196             If (Not (ds.Tables("Quotation_Join")) Is Nothing) Then
197                 MyBase.Tables.Add(New Quotation_JoinDataTable(ds.Tables("Quotation_Join")))
198             End If
199             If (Not (ds.Tables("Registration")) Is Nothing) Then
200                 MyBase.Tables.Add(New RegistrationDataTable(ds.Tables("Registration")))
201             End If
202             If (Not (ds.Tables("Service")) Is Nothing) Then
203                 MyBase.Tables.Add(New ServiceDataTable(ds.Tables("Service")))
204             End If
205             If (Not (ds.Tables("SMSSetting")) Is Nothing) Then
206                 MyBase.Tables.Add(New SMSSettingDataTable(ds.Tables("SMSSetting")))
207             End If
208             If (Not (ds.Tables("Stock")) Is Nothing) Then
209                 MyBase.Tables.Add(New StockDataTable(ds.Tables("Stock")))
210             End If
211             If (Not (ds.Tables("Stock_Product")) Is Nothing) Then
212                 MyBase.Tables.Add(New Stock_ProductDataTable(ds.Tables("Stock_Product")))
213             End If
214             If (Not (ds.Tables("SubCategory")) Is Nothing) Then
215                 MyBase.Tables.Add(New SubCategoryDataTable(ds.Tables("SubCategory")))
216             End If
217             If (Not (ds.Tables("Supplier")) Is Nothing) Then
218                 MyBase.Tables.Add(New SupplierDataTable(ds.Tables("Supplier")))
219             End If
220             If (Not (ds.Tables("Temp_Stock")) Is Nothing) Then
221                 MyBase.Tables.Add(New Temp_StockDataTable(ds.Tables("Temp_Stock")))
222             End If
223             If (Not (ds.Tables("Voucher")) Is Nothing) Then
224                 MyBase.Tables.Add(New VoucherDataTable(ds.Tables("Voucher")))
225             End If
226             If (Not (ds.Tables("Voucher_OtherDetails")) Is Nothing) Then
227                 MyBase.Tables.Add(New Voucher_OtherDetailsDataTable(ds.Tables("Voucher_OtherDetails")))
228             End If
229             Me.DataSetName = ds.DataSetName
230             Me.Prefix = ds.Prefix
231             Me.Namespace = ds.Namespace
232             Me.Locale = ds.Locale
233             Me.CaseSensitive = ds.CaseSensitive
234             Me.EnforceConstraints = ds.EnforceConstraints
235             Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
236             Me.InitVars
237         Else
238             Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
239         End If
240         Me.GetSerializationData(info, context)
241         Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
242         AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
243         AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
244     End Sub
245     
246     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
247      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
248      Global.System.ComponentModel.Browsable(false), _
249      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
250     Public ReadOnly Property Activation() As ActivationDataTable
251         Get
252             Return Me.tableActivation
253         End Get
254     End Property
255     
256     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
257      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
258      Global.System.ComponentModel.Browsable(false), _
259      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
260     Public ReadOnly Property Category() As CategoryDataTable
261         Get
262             Return Me.tableCategory
263         End Get
264     End Property
265     
266     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
267      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
268      Global.System.ComponentModel.Browsable(false), _
269      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
270     Public ReadOnly Property Company() As CompanyDataTable
271         Get
272             Return Me.tableCompany
273         End Get
274     End Property
275     
276     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
277      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
278      Global.System.ComponentModel.Browsable(false), _
279      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
280     Public ReadOnly Property Company_Contacts() As Company_ContactsDataTable
281         Get
282             Return Me.tableCompany_Contacts
283         End Get
284     End Property
285     
286     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
287      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
288      Global.System.ComponentModel.Browsable(false), _
289      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
290     Public ReadOnly Property Customer() As CustomerDataTable
291         Get
292             Return Me.tableCustomer
293         End Get
294     End Property
295     
296     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
297      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
298      Global.System.ComponentModel.Browsable(false), _
299      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
300     Public ReadOnly Property Invoice_Payment() As Invoice_PaymentDataTable
301         Get
302             Return Me.tableInvoice_Payment
303         End Get
304     End Property
305     
306     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
307      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
308      Global.System.ComponentModel.Browsable(false), _
309      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
310     Public ReadOnly Property Invoice_Product() As Invoice_ProductDataTable
311         Get
312             Return Me.tableInvoice_Product
313         End Get
314     End Property
315     
316     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
317      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
318      Global.System.ComponentModel.Browsable(false), _
319      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
320     Public ReadOnly Property Invoice1_Payment() As Invoice1_PaymentDataTable
321         Get
322             Return Me.tableInvoice1_Payment
323         End Get
324     End Property
325     
326     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
327      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
328      Global.System.ComponentModel.Browsable(false), _
329      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
330     Public ReadOnly Property Invoice1_Product() As Invoice1_ProductDataTable
331         Get
332             Return Me.tableInvoice1_Product
333         End Get
334     End Property
335     
336     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
337      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
338      Global.System.ComponentModel.Browsable(false), _
339      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
340     Public ReadOnly Property InvoiceInfo() As InvoiceInfoDataTable
341         Get
342             Return Me.tableInvoiceInfo
343         End Get
344     End Property
345     
346     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
347      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
348      Global.System.ComponentModel.Browsable(false), _
349      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
350     Public ReadOnly Property InvoiceInfo1() As InvoiceInfo1DataTable
351         Get
352             Return Me.tableInvoiceInfo1
353         End Get
354     End Property
355     
356     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
357      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
358      Global.System.ComponentModel.Browsable(false), _
359      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
360     Public ReadOnly Property Logs() As LogsDataTable
361         Get
362             Return Me.tableLogs
363         End Get
364     End Property
365     
366     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
367      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
368      Global.System.ComponentModel.Browsable(false), _
369      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
370     Public ReadOnly Property Product() As ProductDataTable
371         Get
372             Return Me.tableProduct
373         End Get
374     End Property
375     
376     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
377      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
378      Global.System.ComponentModel.Browsable(false), _
379      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
380     Public ReadOnly Property Product_Join() As Product_JoinDataTable
381         Get
382             Return Me.tableProduct_Join
383         End Get
384     End Property
385     
386     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
387      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
388      Global.System.ComponentModel.Browsable(false), _
389      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
390     Public ReadOnly Property Quotation() As QuotationDataTable
391         Get
392             Return Me.tableQuotation
393         End Get
394     End Property
395     
396     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
397      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
398      Global.System.ComponentModel.Browsable(false), _
399      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
400     Public ReadOnly Property Quotation_Join() As Quotation_JoinDataTable
401         Get
402             Return Me.tableQuotation_Join
403         End Get
404     End Property
405     
406     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
407      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
408      Global.System.ComponentModel.Browsable(false), _
409      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
410     Public ReadOnly Property Registration() As RegistrationDataTable
411         Get
412             Return Me.tableRegistration
413         End Get
414     End Property
415     
416     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
417      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
418      Global.System.ComponentModel.Browsable(false), _
419      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
420     Public ReadOnly Property Service() As ServiceDataTable
421         Get
422             Return Me.tableService
423         End Get
424     End Property
425     
426     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
427      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
428      Global.System.ComponentModel.Browsable(false), _
429      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
430     Public ReadOnly Property SMSSetting() As SMSSettingDataTable
431         Get
432             Return Me.tableSMSSetting
433         End Get
434     End Property
435     
436     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
437      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
438      Global.System.ComponentModel.Browsable(false), _
439      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
440     Public ReadOnly Property Stock() As StockDataTable
441         Get
442             Return Me.tableStock
443         End Get
444     End Property
445     
446     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
447      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
448      Global.System.ComponentModel.Browsable(false), _
449      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
450     Public ReadOnly Property Stock_Product() As Stock_ProductDataTable
451         Get
452             Return Me.tableStock_Product
453         End Get
454     End Property
455     
456     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
457      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
458      Global.System.ComponentModel.Browsable(false), _
459      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
460     Public ReadOnly Property SubCategory() As SubCategoryDataTable
461         Get
462             Return Me.tableSubCategory
463         End Get
464     End Property
465     
466     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
467      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
468      Global.System.ComponentModel.Browsable(false), _
469      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
470     Public ReadOnly Property Supplier() As SupplierDataTable
471         Get
472             Return Me.tableSupplier
473         End Get
474     End Property
475     
476     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
477      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
478      Global.System.ComponentModel.Browsable(false), _
479      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
480     Public ReadOnly Property Temp_Stock() As Temp_StockDataTable
481         Get
482             Return Me.tableTemp_Stock
483         End Get
484     End Property
485     
486     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
487      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
488      Global.System.ComponentModel.Browsable(false), _
489      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
490     Public ReadOnly Property Voucher() As VoucherDataTable
491         Get
492             Return Me.tableVoucher
493         End Get
494     End Property
495     
496     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
497      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
498      Global.System.ComponentModel.Browsable(false), _
499      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
500     Public ReadOnly Property Voucher_OtherDetails() As Voucher_OtherDetailsDataTable
501         Get
502             Return Me.tableVoucher_OtherDetails
503         End Get
504     End Property
505     
506     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
507      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
508      Global.System.ComponentModel.BrowsableAttribute(true), _
509      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
510     Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
511         Get
512             Return Me._schemaSerializationMode
513         End Get
514         Set
515             Me._schemaSerializationMode = value
516         End Set
517     End Property
518     
519     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
520      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
521      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
522     Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
523         Get
524             Return MyBase.Tables
525         End Get
526     End Property
527     
528     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
529      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
530      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
531     Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
532         Get
533             Return MyBase.Relations
534         End Get
535     End Property
536     
537     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
538      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
539     Protected Overrides Sub InitializeDerivedDataSet()
540         Me.BeginInit
541         Me.InitClass
542         Me.EndInit
543     End Sub
544     
545     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
546      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
547     Public Overrides Function Clone() As Global.System.Data.DataSet
548         Dim cln As SIS_DBDataSet2 = CType(MyBase.Clone,SIS_DBDataSet2)
549         cln.InitVars
550         cln.SchemaSerializationMode = Me.SchemaSerializationMode
551         Return cln
552     End Function
553     
554     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
555      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
556     Protected Overrides Function ShouldSerializeTables() As Boolean
557         Return false
558     End Function
559     
560     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
561      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
562     Protected Overrides Function ShouldSerializeRelations() As Boolean
563         Return false
564     End Function
565     
566     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
567      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
568     Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
569         If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
570             Me.Reset
571             Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
572             ds.ReadXml(reader)
573             If (Not (ds.Tables("Activation")) Is Nothing) Then
574                 MyBase.Tables.Add(New ActivationDataTable(ds.Tables("Activation")))
575             End If
576             If (Not (ds.Tables("Category")) Is Nothing) Then
577                 MyBase.Tables.Add(New CategoryDataTable(ds.Tables("Category")))
578             End If
579             If (Not (ds.Tables("Company")) Is Nothing) Then
580                 MyBase.Tables.Add(New CompanyDataTable(ds.Tables("Company")))
581             End If
582             If (Not (ds.Tables("Company_Contacts")) Is Nothing) Then
583                 MyBase.Tables.Add(New Company_ContactsDataTable(ds.Tables("Company_Contacts")))
584             End If
585             If (Not (ds.Tables("Customer")) Is Nothing) Then
586                 MyBase.Tables.Add(New CustomerDataTable(ds.Tables("Customer")))
587             End If
588             If (Not (ds.Tables("Invoice_Payment")) Is Nothing) Then
589                 MyBase.Tables.Add(New Invoice_PaymentDataTable(ds.Tables("Invoice_Payment")))
590             End If
591             If (Not (ds.Tables("Invoice_Product")) Is Nothing) Then
592                 MyBase.Tables.Add(New Invoice_ProductDataTable(ds.Tables("Invoice_Product")))
593             End If
594             If (Not (ds.Tables("Invoice1_Payment")) Is Nothing) Then
595                 MyBase.Tables.Add(New Invoice1_PaymentDataTable(ds.Tables("Invoice1_Payment")))
596             End If
597             If (Not (ds.Tables("Invoice1_Product")) Is Nothing) Then
598                 MyBase.Tables.Add(New Invoice1_ProductDataTable(ds.Tables("Invoice1_Product")))
599             End If
600             If (Not (ds.Tables("InvoiceInfo")) Is Nothing) Then
601                 MyBase.Tables.Add(New InvoiceInfoDataTable(ds.Tables("InvoiceInfo")))
602             End If
603             If (Not (ds.Tables("InvoiceInfo1")) Is Nothing) Then
604                 MyBase.Tables.Add(New InvoiceInfo1DataTable(ds.Tables("InvoiceInfo1")))
605             End If
606             If (Not (ds.Tables("Logs")) Is Nothing) Then
607                 MyBase.Tables.Add(New LogsDataTable(ds.Tables("Logs")))
608             End If
609             If (Not (ds.Tables("Product")) Is Nothing) Then
610                 MyBase.Tables.Add(New ProductDataTable(ds.Tables("Product")))
611             End If
612             If (Not (ds.Tables("Product_Join")) Is Nothing) Then
613                 MyBase.Tables.Add(New Product_JoinDataTable(ds.Tables("Product_Join")))
614             End If
615             If (Not (ds.Tables("Quotation")) Is Nothing) Then
616                 MyBase.Tables.Add(New QuotationDataTable(ds.Tables("Quotation")))
617             End If
618             If (Not (ds.Tables("Quotation_Join")) Is Nothing) Then
619                 MyBase.Tables.Add(New Quotation_JoinDataTable(ds.Tables("Quotation_Join")))
620             End If
621             If (Not (ds.Tables("Registration")) Is Nothing) Then
622                 MyBase.Tables.Add(New RegistrationDataTable(ds.Tables("Registration")))
623             End If
624             If (Not (ds.Tables("Service")) Is Nothing) Then
625                 MyBase.Tables.Add(New ServiceDataTable(ds.Tables("Service")))
626             End If
627             If (Not (ds.Tables("SMSSetting")) Is Nothing) Then
628                 MyBase.Tables.Add(New SMSSettingDataTable(ds.Tables("SMSSetting")))
629             End If
630             If (Not (ds.Tables("Stock")) Is Nothing) Then
631                 MyBase.Tables.Add(New StockDataTable(ds.Tables("Stock")))
632             End If
633             If (Not (ds.Tables("Stock_Product")) Is Nothing) Then
634                 MyBase.Tables.Add(New Stock_ProductDataTable(ds.Tables("Stock_Product")))
635             End If
636             If (Not (ds.Tables("SubCategory")) Is Nothing) Then
637                 MyBase.Tables.Add(New SubCategoryDataTable(ds.Tables("SubCategory")))
638             End If
639             If (Not (ds.Tables("Supplier")) Is Nothing) Then
640                 MyBase.Tables.Add(New SupplierDataTable(ds.Tables("Supplier")))
641             End If
642             If (Not (ds.Tables("Temp_Stock")) Is Nothing) Then
643                 MyBase.Tables.Add(New Temp_StockDataTable(ds.Tables("Temp_Stock")))
644             End If
645             If (Not (ds.Tables("Voucher")) Is Nothing) Then
646                 MyBase.Tables.Add(New VoucherDataTable(ds.Tables("Voucher")))
647             End If
648             If (Not (ds.Tables("Voucher_OtherDetails")) Is Nothing) Then
649                 MyBase.Tables.Add(New Voucher_OtherDetailsDataTable(ds.Tables("Voucher_OtherDetails")))
650             End If
651             Me.DataSetName = ds.DataSetName
652             Me.Prefix = ds.Prefix
653             Me.Namespace = ds.Namespace
654             Me.Locale = ds.Locale
655             Me.CaseSensitive = ds.CaseSensitive
656             Me.EnforceConstraints = ds.EnforceConstraints
657             Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
658             Me.InitVars
659         Else
660             Me.ReadXml(reader)
661             Me.InitVars
662         End If
663     End Sub
664     
665     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
666      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
667     Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
668         Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
669         Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
670         stream.Position = 0
671         Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
672     End Function
673     
674     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
675      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
676     Friend Overloads Sub InitVars()
677         Me.InitVars(true)
678     End Sub
679     
680     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
681      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
682     Friend Overloads Sub InitVars(ByVal initTable As Boolean)
683         Me.tableActivation = CType(MyBase.Tables("Activation"),ActivationDataTable)
684         If (initTable = true) Then
685             If (Not (Me.tableActivation) Is Nothing) Then
686                 Me.tableActivation.InitVars
687             End If
688         End If
689         Me.tableCategory = CType(MyBase.Tables("Category"),CategoryDataTable)
690         If (initTable = true) Then
691             If (Not (Me.tableCategory) Is Nothing) Then
692                 Me.tableCategory.InitVars
693             End If
694         End If
695         Me.tableCompany = CType(MyBase.Tables("Company"),CompanyDataTable)
696         If (initTable = true) Then
697             If (Not (Me.tableCompany) Is Nothing) Then
698                 Me.tableCompany.InitVars
699             End If
700         End If
701         Me.tableCompany_Contacts = CType(MyBase.Tables("Company_Contacts"),Company_ContactsDataTable)
702         If (initTable = true) Then
703             If (Not (Me.tableCompany_Contacts) Is Nothing) Then
704                 Me.tableCompany_Contacts.InitVars
705             End If
706         End If
707         Me.tableCustomer = CType(MyBase.Tables("Customer"),CustomerDataTable)
708         If (initTable = true) Then
709             If (Not (Me.tableCustomer) Is Nothing) Then
710                 Me.tableCustomer.InitVars
711             End If
712         End If
713         Me.tableInvoice_Payment = CType(MyBase.Tables("Invoice_Payment"),Invoice_PaymentDataTable)
714         If (initTable = true) Then
715             If (Not (Me.tableInvoice_Payment) Is Nothing) Then
716                 Me.tableInvoice_Payment.InitVars
717             End If
718         End If
719         Me.tableInvoice_Product = CType(MyBase.Tables("Invoice_Product"),Invoice_ProductDataTable)
720         If (initTable = true) Then
721             If (Not (Me.tableInvoice_Product) Is Nothing) Then
722                 Me.tableInvoice_Product.InitVars
723             End If
724         End If
725         Me.tableInvoice1_Payment = CType(MyBase.Tables("Invoice1_Payment"),Invoice1_PaymentDataTable)
726         If (initTable = true) Then
727             If (Not (Me.tableInvoice1_Payment) Is Nothing) Then
728                 Me.tableInvoice1_Payment.InitVars
729             End If
730         End If
731         Me.tableInvoice1_Product = CType(MyBase.Tables("Invoice1_Product"),Invoice1_ProductDataTable)
732         If (initTable = true) Then
733             If (Not (Me.tableInvoice1_Product) Is Nothing) Then
734                 Me.tableInvoice1_Product.InitVars
735             End If
736         End If
737         Me.tableInvoiceInfo = CType(MyBase.Tables("InvoiceInfo"),InvoiceInfoDataTable)
738         If (initTable = true) Then
739             If (Not (Me.tableInvoiceInfo) Is Nothing) Then
740                 Me.tableInvoiceInfo.InitVars
741             End If
742         End If
743         Me.tableInvoiceInfo1 = CType(MyBase.Tables("InvoiceInfo1"),InvoiceInfo1DataTable)
744         If (initTable = true) Then
745             If (Not (Me.tableInvoiceInfo1) Is Nothing) Then
746                 Me.tableInvoiceInfo1.InitVars
747             End If
748         End If
749         Me.tableLogs = CType(MyBase.Tables("Logs"),LogsDataTable)
750         If (initTable = true) Then
751             If (Not (Me.tableLogs) Is Nothing) Then
752                 Me.tableLogs.InitVars
753             End If
754         End If
755         Me.tableProduct = CType(MyBase.Tables("Product"),ProductDataTable)
756         If (initTable = true) Then
757             If (Not (Me.tableProduct) Is Nothing) Then
758                 Me.tableProduct.InitVars
759             End If
760         End If
761         Me.tableProduct_Join = CType(MyBase.Tables("Product_Join"),Product_JoinDataTable)
762         If (initTable = true) Then
763             If (Not (Me.tableProduct_Join) Is Nothing) Then
764                 Me.tableProduct_Join.InitVars
765             End If
766         End If
767         Me.tableQuotation = CType(MyBase.Tables("Quotation"),QuotationDataTable)
768         If (initTable = true) Then
769             If (Not (Me.tableQuotation) Is Nothing) Then
770                 Me.tableQuotation.InitVars
771             End If
772         End If
773         Me.tableQuotation_Join = CType(MyBase.Tables("Quotation_Join"),Quotation_JoinDataTable)
774         If (initTable = true) Then
775             If (Not (Me.tableQuotation_Join) Is Nothing) Then
776                 Me.tableQuotation_Join.InitVars
777             End If
778         End If
779         Me.tableRegistration = CType(MyBase.Tables("Registration"),RegistrationDataTable)
780         If (initTable = true) Then
781             If (Not (Me.tableRegistration) Is Nothing) Then
782                 Me.tableRegistration.InitVars
783             End If
784         End If
785         Me.tableService = CType(MyBase.Tables("Service"),ServiceDataTable)
786         If (initTable = true) Then
787             If (Not (Me.tableService) Is Nothing) Then
788                 Me.tableService.InitVars
789             End If
790         End If
791         Me.tableSMSSetting = CType(MyBase.Tables("SMSSetting"),SMSSettingDataTable)
792         If (initTable = true) Then
793             If (Not (Me.tableSMSSetting) Is Nothing) Then
794                 Me.tableSMSSetting.InitVars
795             End If
796         End If
797         Me.tableStock = CType(MyBase.Tables("Stock"),StockDataTable)
798         If (initTable = true) Then
799             If (Not (Me.tableStock) Is Nothing) Then
800                 Me.tableStock.InitVars
801             End If
802         End If
803         Me.tableStock_Product = CType(MyBase.Tables("Stock_Product"),Stock_ProductDataTable)
804         If (initTable = true) Then
805             If (Not (Me.tableStock_Product) Is Nothing) Then
806                 Me.tableStock_Product.InitVars
807             End If
808         End If
809         Me.tableSubCategory = CType(MyBase.Tables("SubCategory"),SubCategoryDataTable)
810         If (initTable = true) Then
811             If (Not (Me.tableSubCategory) Is Nothing) Then
812                 Me.tableSubCategory.InitVars
813             End If
814         End If
815         Me.tableSupplier = CType(MyBase.Tables("Supplier"),SupplierDataTable)
816         If (initTable = true) Then
817             If (Not (Me.tableSupplier) Is Nothing) Then
818                 Me.tableSupplier.InitVars
819             End If
820         End If
821         Me.tableTemp_Stock = CType(MyBase.Tables("Temp_Stock"),Temp_StockDataTable)
822         If (initTable = true) Then
823             If (Not (Me.tableTemp_Stock) Is Nothing) Then
824                 Me.tableTemp_Stock.InitVars
825             End If
826         End If
827         Me.tableVoucher = CType(MyBase.Tables("Voucher"),VoucherDataTable)
828         If (initTable = true) Then
829             If (Not (Me.tableVoucher) Is Nothing) Then
830                 Me.tableVoucher.InitVars
831             End If
832         End If
833         Me.tableVoucher_OtherDetails = CType(MyBase.Tables("Voucher_OtherDetails"),Voucher_OtherDetailsDataTable)
834         If (initTable = true) Then
835             If (Not (Me.tableVoucher_OtherDetails) Is Nothing) Then
836                 Me.tableVoucher_OtherDetails.InitVars
837             End If
838         End If
839         Me.relationFK_Invoice_Payment_InvoiceInfo = Me.Relations("FK_Invoice_Payment_InvoiceInfo")
840         Me.relationFK_Invoice_Product_InvoiceInfo = Me.Relations("FK_Invoice_Product_InvoiceInfo")
841         Me.relationFK_Invoice_Product_Product = Me.Relations("FK_Invoice_Product_Product")
842         Me.relationFK_Invoice1_Payment_InvoiceInfo1 = Me.Relations("FK_Invoice1_Payment_InvoiceInfo1")
843         Me.relationFK_Invoice1_Product_InvoiceInfo1 = Me.Relations("FK_Invoice1_Product_InvoiceInfo1")
844         Me.relationFK_Invoice1_Product_Product = Me.Relations("FK_Invoice1_Product_Product")
845         Me.relationFK_InvoiceInfo_Customer = Me.Relations("FK_InvoiceInfo_Customer")
846         Me.relationFK_InvoiceInfo1_Service = Me.Relations("FK_InvoiceInfo1_Service")
847         Me.relationFK_Logs_Registration = Me.Relations("FK_Logs_Registration")
848         Me.relationFK_Product_SubCategory = Me.Relations("FK_Product_SubCategory")
849         Me.relationFK_Product_Join_Product = Me.Relations("FK_Product_Join_Product")
850         Me.relationFK_Quotation_Customer = Me.Relations("FK_Quotation_Customer")
851         Me.relationFK_Quotation_Join_Product = Me.Relations("FK_Quotation_Join_Product")
852         Me.relationFK_Quotation_Join_Quotation = Me.Relations("FK_Quotation_Join_Quotation")
853         Me.relationFK_Service_Customer = Me.Relations("FK_Service_Customer")
854         Me.relationFK_Stock_Supplier = Me.Relations("FK_Stock_Supplier")
855         Me.relationFK_Stock_Product_Product = Me.Relations("FK_Stock_Product_Product")
856         Me.relationFK_Stock_Product_Stock = Me.Relations("FK_Stock_Product_Stock")
857         Me.relationFK_SubCategory_Category = Me.Relations("FK_SubCategory_Category")
858         Me.relationFK_Temp_Stock_Product = Me.Relations("FK_Temp_Stock_Product")
859         Me.relationFK_Voucher_OtherDetails_Voucher = Me.Relations("FK_Voucher_OtherDetails_Voucher")
860     End Sub
861     
862     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
863      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
864     Private Sub InitClass()
865         Me.DataSetName = "SIS_DBDataSet2"
866         Me.Prefix = ""
867         Me.Namespace = "http://tempuri.org/SIS_DBDataSet2.xsd"
868         Me.EnforceConstraints = false
869         Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
870         Me.tableActivation = New ActivationDataTable()
871         MyBase.Tables.Add(Me.tableActivation)
872         Me.tableCategory = New CategoryDataTable()
873         MyBase.Tables.Add(Me.tableCategory)
874         Me.tableCompany = New CompanyDataTable()
875         MyBase.Tables.Add(Me.tableCompany)
876         Me.tableCompany_Contacts = New Company_ContactsDataTable()
877         MyBase.Tables.Add(Me.tableCompany_Contacts)
878         Me.tableCustomer = New CustomerDataTable()
879         MyBase.Tables.Add(Me.tableCustomer)
880         Me.tableInvoice_Payment = New Invoice_PaymentDataTable()
881         MyBase.Tables.Add(Me.tableInvoice_Payment)
882         Me.tableInvoice_Product = New Invoice_ProductDataTable()
883         MyBase.Tables.Add(Me.tableInvoice_Product)
884         Me.tableInvoice1_Payment = New Invoice1_PaymentDataTable()
885         MyBase.Tables.Add(Me.tableInvoice1_Payment)
886         Me.tableInvoice1_Product = New Invoice1_ProductDataTable()
887         MyBase.Tables.Add(Me.tableInvoice1_Product)
888         Me.tableInvoiceInfo = New InvoiceInfoDataTable()
889         MyBase.Tables.Add(Me.tableInvoiceInfo)
890         Me.tableInvoiceInfo1 = New InvoiceInfo1DataTable()
891         MyBase.Tables.Add(Me.tableInvoiceInfo1)
892         Me.tableLogs = New LogsDataTable()
893         MyBase.Tables.Add(Me.tableLogs)
894         Me.tableProduct = New ProductDataTable()
895         MyBase.Tables.Add(Me.tableProduct)
896         Me.tableProduct_Join = New Product_JoinDataTable()
897         MyBase.Tables.Add(Me.tableProduct_Join)
898         Me.tableQuotation = New QuotationDataTable()
899         MyBase.Tables.Add(Me.tableQuotation)
900         Me.tableQuotation_Join = New Quotation_JoinDataTable()
901         MyBase.Tables.Add(Me.tableQuotation_Join)
902         Me.tableRegistration = New RegistrationDataTable()
903         MyBase.Tables.Add(Me.tableRegistration)
904         Me.tableService = New ServiceDataTable()
905         MyBase.Tables.Add(Me.tableService)
906         Me.tableSMSSetting = New SMSSettingDataTable()
907         MyBase.Tables.Add(Me.tableSMSSetting)
908         Me.tableStock = New StockDataTable()
909         MyBase.Tables.Add(Me.tableStock)
910         Me.tableStock_Product = New Stock_ProductDataTable()
911         MyBase.Tables.Add(Me.tableStock_Product)
912         Me.tableSubCategory = New SubCategoryDataTable()
913         MyBase.Tables.Add(Me.tableSubCategory)
914         Me.tableSupplier = New SupplierDataTable()
915         MyBase.Tables.Add(Me.tableSupplier)
916         Me.tableTemp_Stock = New Temp_StockDataTable()
917         MyBase.Tables.Add(Me.tableTemp_Stock)
918         Me.tableVoucher = New VoucherDataTable()
919         MyBase.Tables.Add(Me.tableVoucher)
920         Me.tableVoucher_OtherDetails = New Voucher_OtherDetailsDataTable()
921         MyBase.Tables.Add(Me.tableVoucher_OtherDetails)
922         Me.relationFK_Invoice_Payment_InvoiceInfo = New Global.System.Data.DataRelation("FK_Invoice_Payment_InvoiceInfo", New Global.System.Data.DataColumn() {Me.tableInvoiceInfo.Inv_IDColumn}, New Global.System.Data.DataColumn() {Me.tableInvoice_Payment.InvoiceIDColumn}, false)
923         Me.Relations.Add(Me.relationFK_Invoice_Payment_InvoiceInfo)
924         Me.relationFK_Invoice_Product_InvoiceInfo = New Global.System.Data.DataRelation("FK_Invoice_Product_InvoiceInfo", New Global.System.Data.DataColumn() {Me.tableInvoiceInfo.Inv_IDColumn}, New Global.System.Data.DataColumn() {Me.tableInvoice_Product.InvoiceIDColumn}, false)
925         Me.Relations.Add(Me.relationFK_Invoice_Product_InvoiceInfo)
926         Me.relationFK_Invoice_Product_Product = New Global.System.Data.DataRelation("FK_Invoice_Product_Product", New Global.System.Data.DataColumn() {Me.tableProduct.PIDColumn}, New Global.System.Data.DataColumn() {Me.tableInvoice_Product.ProductIDColumn}, false)
927         Me.Relations.Add(Me.relationFK_Invoice_Product_Product)
928         Me.relationFK_Invoice1_Payment_InvoiceInfo1 = New Global.System.Data.DataRelation("FK_Invoice1_Payment_InvoiceInfo1", New Global.System.Data.DataColumn() {Me.tableInvoiceInfo1.Inv_IDColumn}, New Global.System.Data.DataColumn() {Me.tableInvoice1_Payment.InvoiceIDColumn}, false)
929         Me.Relations.Add(Me.relationFK_Invoice1_Payment_InvoiceInfo1)
930         Me.relationFK_Invoice1_Product_InvoiceInfo1 = New Global.System.Data.DataRelation("FK_Invoice1_Product_InvoiceInfo1", New Global.System.Data.DataColumn() {Me.tableInvoiceInfo1.Inv_IDColumn}, New Global.System.Data.DataColumn() {Me.tableInvoice1_Product.InvoiceIDColumn}, false)
931         Me.Relations.Add(Me.relationFK_Invoice1_Product_InvoiceInfo1)
932         Me.relationFK_Invoice1_Product_Product = New Global.System.Data.DataRelation("FK_Invoice1_Product_Product", New Global.System.Data.DataColumn() {Me.tableProduct.PIDColumn}, New Global.System.Data.DataColumn() {Me.tableInvoice1_Product.ProductIDColumn}, false)
933         Me.Relations.Add(Me.relationFK_Invoice1_Product_Product)
934         Me.relationFK_InvoiceInfo_Customer = New Global.System.Data.DataRelation("FK_InvoiceInfo_Customer", New Global.System.Data.DataColumn() {Me.tableCustomer.IDColumn}, New Global.System.Data.DataColumn() {Me.tableInvoiceInfo.CustomerIDColumn}, false)
935         Me.Relations.Add(Me.relationFK_InvoiceInfo_Customer)
936         Me.relationFK_InvoiceInfo1_Service = New Global.System.Data.DataRelation("FK_InvoiceInfo1_Service", New Global.System.Data.DataColumn() {Me.tableService.S_IDColumn}, New Global.System.Data.DataColumn() {Me.tableInvoiceInfo1.ServiceIDColumn}, false)
937         Me.Relations.Add(Me.relationFK_InvoiceInfo1_Service)
938         Me.relationFK_Logs_Registration = New Global.System.Data.DataRelation("FK_Logs_Registration", New Global.System.Data.DataColumn() {Me.tableRegistration.UserIDColumn}, New Global.System.Data.DataColumn() {Me.tableLogs.UserIDColumn}, false)
939         Me.Relations.Add(Me.relationFK_Logs_Registration)
940         Me.relationFK_Product_SubCategory = New Global.System.Data.DataRelation("FK_Product_SubCategory", New Global.System.Data.DataColumn() {Me.tableSubCategory.IDColumn}, New Global.System.Data.DataColumn() {Me.tableProduct.SubCategoryIDColumn}, false)
941         Me.Relations.Add(Me.relationFK_Product_SubCategory)
942         Me.relationFK_Product_Join_Product = New Global.System.Data.DataRelation("FK_Product_Join_Product", New Global.System.Data.DataColumn() {Me.tableProduct.PIDColumn}, New Global.System.Data.DataColumn() {Me.tableProduct_Join.ProductIDColumn}, false)
943         Me.Relations.Add(Me.relationFK_Product_Join_Product)
944         Me.relationFK_Quotation_Customer = New Global.System.Data.DataRelation("FK_Quotation_Customer", New Global.System.Data.DataColumn() {Me.tableCustomer.IDColumn}, New Global.System.Data.DataColumn() {Me.tableQuotation.CustomerIDColumn}, false)
945         Me.Relations.Add(Me.relationFK_Quotation_Customer)
946         Me.relationFK_Quotation_Join_Product = New Global.System.Data.DataRelation("FK_Quotation_Join_Product", New Global.System.Data.DataColumn() {Me.tableProduct.PIDColumn}, New Global.System.Data.DataColumn() {Me.tableQuotation_Join.ProductIDColumn}, false)
947         Me.Relations.Add(Me.relationFK_Quotation_Join_Product)
948         Me.relationFK_Quotation_Join_Quotation = New Global.System.Data.DataRelation("FK_Quotation_Join_Quotation", New Global.System.Data.DataColumn() {Me.tableQuotation.Q_IDColumn}, New Global.System.Data.DataColumn() {Me.tableQuotation_Join.QuotationIDColumn}, false)
949         Me.Relations.Add(Me.relationFK_Quotation_Join_Quotation)
950         Me.relationFK_Service_Customer = New Global.System.Data.DataRelation("FK_Service_Customer", New Global.System.Data.DataColumn() {Me.tableCustomer.IDColumn}, New Global.System.Data.DataColumn() {Me.tableService.CustomerIDColumn}, false)
951         Me.Relations.Add(Me.relationFK_Service_Customer)
952         Me.relationFK_Stock_Supplier = New Global.System.Data.DataRelation("FK_Stock_Supplier", New Global.System.Data.DataColumn() {Me.tableSupplier.IDColumn}, New Global.System.Data.DataColumn() {Me.tableStock.SupplierIDColumn}, false)
953         Me.Relations.Add(Me.relationFK_Stock_Supplier)
954         Me.relationFK_Stock_Product_Product = New Global.System.Data.DataRelation("FK_Stock_Product_Product", New Global.System.Data.DataColumn() {Me.tableProduct.PIDColumn}, New Global.System.Data.DataColumn() {Me.tableStock_Product.ProductIDColumn}, false)
955         Me.Relations.Add(Me.relationFK_Stock_Product_Product)
956         Me.relationFK_Stock_Product_Stock = New Global.System.Data.DataRelation("FK_Stock_Product_Stock", New Global.System.Data.DataColumn() {Me.tableStock.ST_IDColumn}, New Global.System.Data.DataColumn() {Me.tableStock_Product.StockIDColumn}, false)
957         Me.Relations.Add(Me.relationFK_Stock_Product_Stock)
958         Me.relationFK_SubCategory_Category = New Global.System.Data.DataRelation("FK_SubCategory_Category", New Global.System.Data.DataColumn() {Me.tableCategory.CategoryNameColumn}, New Global.System.Data.DataColumn() {Me.tableSubCategory.CategoryColumn}, false)
959         Me.Relations.Add(Me.relationFK_SubCategory_Category)
960         Me.relationFK_Temp_Stock_Product = New Global.System.Data.DataRelation("FK_Temp_Stock_Product", New Global.System.Data.DataColumn() {Me.tableProduct.PIDColumn}, New Global.System.Data.DataColumn() {Me.tableTemp_Stock.ProductIDColumn}, false)
961         Me.Relations.Add(Me.relationFK_Temp_Stock_Product)
962         Me.relationFK_Voucher_OtherDetails_Voucher = New Global.System.Data.DataRelation("FK_Voucher_OtherDetails_Voucher", New Global.System.Data.DataColumn() {Me.tableVoucher.IdColumn}, New Global.System.Data.DataColumn() {Me.tableVoucher_OtherDetails.VoucherIDColumn}, false)
963         Me.Relations.Add(Me.relationFK_Voucher_OtherDetails_Voucher)
964     End Sub
965     
966     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
967      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
968     Private Function ShouldSerializeActivation() As Boolean
969         Return false
970     End Function
971     
972     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
973      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
974     Private Function ShouldSerializeCategory() As Boolean
975         Return false
976     End Function
977     
978     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
979      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
980     Private Function ShouldSerializeCompany() As Boolean
981         Return false
982     End Function
983     
984     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
985      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
986     Private Function ShouldSerializeCompany_Contacts() As Boolean
987         Return false
988     End Function
989     
990     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
991      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
992     Private Function ShouldSerializeCustomer() As Boolean
993         Return false
994     End Function
995     
996     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
997      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
998     Private Function ShouldSerializeInvoice_Payment() As Boolean
999         Return false
1000     End Function
1001     
1002     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1003      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1004     Private Function ShouldSerializeInvoice_Product() As Boolean
1005         Return false
1006     End Function
1007     
1008     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1009      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1010     Private Function ShouldSerializeInvoice1_Payment() As Boolean
1011         Return false
1012     End Function
1013     
1014     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1015      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1016     Private Function ShouldSerializeInvoice1_Product() As Boolean
1017         Return false
1018     End Function
1019     
1020     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1021      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1022     Private Function ShouldSerializeInvoiceInfo() As Boolean
1023         Return false
1024     End Function
1025     
1026     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1027      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1028     Private Function ShouldSerializeInvoiceInfo1() As Boolean
1029         Return false
1030     End Function
1031     
1032     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1033      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1034     Private Function ShouldSerializeLogs() As Boolean
1035         Return false
1036     End Function
1037     
1038     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1039      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1040     Private Function ShouldSerializeProduct() As Boolean
1041         Return false
1042     End Function
1043     
1044     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1045      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1046     Private Function ShouldSerializeProduct_Join() As Boolean
1047         Return false
1048     End Function
1049     
1050     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1051      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1052     Private Function ShouldSerializeQuotation() As Boolean
1053         Return false
1054     End Function
1055     
1056     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1057      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1058     Private Function ShouldSerializeQuotation_Join() As Boolean
1059         Return false
1060     End Function
1061     
1062     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1063      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1064     Private Function ShouldSerializeRegistration() As Boolean
1065         Return false
1066     End Function
1067     
1068     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1069      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1070     Private Function ShouldSerializeService() As Boolean
1071         Return false
1072     End Function
1073     
1074     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1075      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1076     Private Function ShouldSerializeSMSSetting() As Boolean
1077         Return false
1078     End Function
1079     
1080     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1081      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1082     Private Function ShouldSerializeStock() As Boolean
1083         Return false
1084     End Function
1085     
1086     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1087      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1088     Private Function ShouldSerializeStock_Product() As Boolean
1089         Return false
1090     End Function
1091     
1092     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1093      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1094     Private Function ShouldSerializeSubCategory() As Boolean
1095         Return false
1096     End Function
1097     
1098     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1099      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1100     Private Function ShouldSerializeSupplier() As Boolean
1101         Return false
1102     End Function
1103     
1104     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1105      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1106     Private Function ShouldSerializeTemp_Stock() As Boolean
1107         Return false
1108     End Function
1109     
1110     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1111      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1112     Private Function ShouldSerializeVoucher() As Boolean
1113         Return false
1114     End Function
1115     
1116     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1117      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1118     Private Function ShouldSerializeVoucher_OtherDetails() As Boolean
1119         Return false
1120     End Function
1121     
1122     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1123      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1124     Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
1125         If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
1126             Me.InitVars
1127         End If
1128     End Sub
1129     
1130     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1131      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1132     Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1133         Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
1134         Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
1135         Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
1136         Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1137         any.Namespace = ds.Namespace
1138         sequence.Items.Add(any)
1139         type.Particle = sequence
1140         Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1141         If xs.Contains(dsSchema.TargetNamespace) Then
1142             Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1143             Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1144             Try
1145                 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1146                 dsSchema.Write(s1)
1147                 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1148                 Do While schemas.MoveNext
1149                     schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1150                     s2.SetLength(0)
1151                     schema.Write(s2)
1152                     If (s1.Length = s2.Length) Then
1153                         s1.Position = 0
1154                         s2.Position = 0
1155                         
1156                         Do While ((s1.Position <> s1.Length) _
1157                                     AndAlso (s1.ReadByte = s2.ReadByte))
1158                             
1159                             
1160                         Loop
1161                         If (s1.Position = s1.Length) Then
1162                             Return type
1163                         End If
1164                     End If
1165                     
1166                 Loop
1167             Finally
1168                 If (Not (s1) Is Nothing) Then
1169                     s1.Close
1170                 End If
1171                 If (Not (s2) Is Nothing) Then
1172                     s2.Close
1173                 End If
1174             End Try
1175         End If
1176         xs.Add(dsSchema)
1177         Return type
1178     End Function
1179     
1180     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1181     Public Delegate Sub ActivationRowChangeEventHandler(ByVal sender As Object, ByVal e As ActivationRowChangeEvent)
1182     
1183     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1184     Public Delegate Sub CategoryRowChangeEventHandler(ByVal sender As Object, ByVal e As CategoryRowChangeEvent)
1185     
1186     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1187     Public Delegate Sub CompanyRowChangeEventHandler(ByVal sender As Object, ByVal e As CompanyRowChangeEvent)
1188     
1189     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1190     Public Delegate Sub Company_ContactsRowChangeEventHandler(ByVal sender As Object, ByVal e As Company_ContactsRowChangeEvent)
1191     
1192     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1193     Public Delegate Sub CustomerRowChangeEventHandler(ByVal sender As Object, ByVal e As CustomerRowChangeEvent)
1194     
1195     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1196     Public Delegate Sub Invoice_PaymentRowChangeEventHandler(ByVal sender As Object, ByVal e As Invoice_PaymentRowChangeEvent)
1197     
1198     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1199     Public Delegate Sub Invoice_ProductRowChangeEventHandler(ByVal sender As Object, ByVal e As Invoice_ProductRowChangeEvent)
1200     
1201     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1202     Public Delegate Sub Invoice1_PaymentRowChangeEventHandler(ByVal sender As Object, ByVal e As Invoice1_PaymentRowChangeEvent)
1203     
1204     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1205     Public Delegate Sub Invoice1_ProductRowChangeEventHandler(ByVal sender As Object, ByVal e As Invoice1_ProductRowChangeEvent)
1206     
1207     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1208     Public Delegate Sub InvoiceInfoRowChangeEventHandler(ByVal sender As Object, ByVal e As InvoiceInfoRowChangeEvent)
1209     
1210     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1211     Public Delegate Sub InvoiceInfo1RowChangeEventHandler(ByVal sender As Object, ByVal e As InvoiceInfo1RowChangeEvent)
1212     
1213     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1214     Public Delegate Sub LogsRowChangeEventHandler(ByVal sender As Object, ByVal e As LogsRowChangeEvent)
1215     
1216     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1217     Public Delegate Sub ProductRowChangeEventHandler(ByVal sender As Object, ByVal e As ProductRowChangeEvent)
1218     
1219     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1220     Public Delegate Sub Product_JoinRowChangeEventHandler(ByVal sender As Object, ByVal e As Product_JoinRowChangeEvent)
1221     
1222     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1223     Public Delegate Sub QuotationRowChangeEventHandler(ByVal sender As Object, ByVal e As QuotationRowChangeEvent)
1224     
1225     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1226     Public Delegate Sub Quotation_JoinRowChangeEventHandler(ByVal sender As Object, ByVal e As Quotation_JoinRowChangeEvent)
1227     
1228     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1229     Public Delegate Sub RegistrationRowChangeEventHandler(ByVal sender As Object, ByVal e As RegistrationRowChangeEvent)
1230     
1231     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1232     Public Delegate Sub ServiceRowChangeEventHandler(ByVal sender As Object, ByVal e As ServiceRowChangeEvent)
1233     
1234     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1235     Public Delegate Sub SMSSettingRowChangeEventHandler(ByVal sender As Object, ByVal e As SMSSettingRowChangeEvent)
1236     
1237     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1238     Public Delegate Sub StockRowChangeEventHandler(ByVal sender As Object, ByVal e As StockRowChangeEvent)
1239     
1240     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1241     Public Delegate Sub Stock_ProductRowChangeEventHandler(ByVal sender As Object, ByVal e As Stock_ProductRowChangeEvent)
1242     
1243     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1244     Public Delegate Sub SubCategoryRowChangeEventHandler(ByVal sender As Object, ByVal e As SubCategoryRowChangeEvent)
1245     
1246     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1247     Public Delegate Sub SupplierRowChangeEventHandler(ByVal sender As Object, ByVal e As SupplierRowChangeEvent)
1248     
1249     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1250     Public Delegate Sub Temp_StockRowChangeEventHandler(ByVal sender As Object, ByVal e As Temp_StockRowChangeEvent)
1251     
1252     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1253     Public Delegate Sub VoucherRowChangeEventHandler(ByVal sender As Object, ByVal e As VoucherRowChangeEvent)
1254     
1255     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1256     Public Delegate Sub Voucher_OtherDetailsRowChangeEventHandler(ByVal sender As Object, ByVal e As Voucher_OtherDetailsRowChangeEvent)
1257     
1258     '''<summary>
1259     '''Represents the strongly named DataTable class.
1260     '''</summary>
1261     <Global.System.Serializable(), _
1262      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
1263     Partial Public Class ActivationDataTable
1264         Inherits Global.System.Data.TypedTableBase(Of ActivationRow)
1265         
1266         Private columnID As Global.System.Data.DataColumn
1267         
1268         Private columnHardwareID As Global.System.Data.DataColumn
1269         
1270         Private columnSerialNo As Global.System.Data.DataColumn
1271         
1272         Private columnActivationID As Global.System.Data.DataColumn
1273         
1274         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1275          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1276         Public Sub New()
1277             MyBase.New
1278             Me.TableName = "Activation"
1279             Me.BeginInit
1280             Me.InitClass
1281             Me.EndInit
1282         End Sub
1283         
1284         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1285          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1286         Friend Sub New(ByVal table As Global.System.Data.DataTable)
1287             MyBase.New
1288             Me.TableName = table.TableName
1289             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1290                 Me.CaseSensitive = table.CaseSensitive
1291             End If
1292             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1293                 Me.Locale = table.Locale
1294             End If
1295             If (table.Namespace <> table.DataSet.Namespace) Then
1296                 Me.Namespace = table.Namespace
1297             End If
1298             Me.Prefix = table.Prefix
1299             Me.MinimumCapacity = table.MinimumCapacity
1300         End Sub
1301         
1302         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1303          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1304         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1305             MyBase.New(info, context)
1306             Me.InitVars
1307         End Sub
1308         
1309         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1310          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1311         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
1312             Get
1313                 Return Me.columnID
1314             End Get
1315         End Property
1316         
1317         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1318          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1319         Public ReadOnly Property HardwareIDColumn() As Global.System.Data.DataColumn
1320             Get
1321                 Return Me.columnHardwareID
1322             End Get
1323         End Property
1324         
1325         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1326          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1327         Public ReadOnly Property SerialNoColumn() As Global.System.Data.DataColumn
1328             Get
1329                 Return Me.columnSerialNo
1330             End Get
1331         End Property
1332         
1333         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1334          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1335         Public ReadOnly Property ActivationIDColumn() As Global.System.Data.DataColumn
1336             Get
1337                 Return Me.columnActivationID
1338             End Get
1339         End Property
1340         
1341         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1342          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
1343          Global.System.ComponentModel.Browsable(false)> _
1344         Public ReadOnly Property Count() As Integer
1345             Get
1346                 Return Me.Rows.Count
1347             End Get
1348         End Property
1349         
1350         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1351          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1352         Public Default ReadOnly Property Item(ByVal index As Integer) As ActivationRow
1353             Get
1354                 Return CType(Me.Rows(index),ActivationRow)
1355             End Get
1356         End Property
1357         
1358         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1359         Public Event ActivationRowChanging As ActivationRowChangeEventHandler
1360         
1361         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1362         Public Event ActivationRowChanged As ActivationRowChangeEventHandler
1363         
1364         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1365         Public Event ActivationRowDeleting As ActivationRowChangeEventHandler
1366         
1367         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1368         Public Event ActivationRowDeleted As ActivationRowChangeEventHandler
1369         
1370         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1371          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1372         Public Overloads Sub AddActivationRow(ByVal row As ActivationRow)
1373             Me.Rows.Add(row)
1374         End Sub
1375         
1376         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1377          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1378         Public Overloads Function AddActivationRow(ByVal HardwareID As String, ByVal SerialNo As String, ByVal ActivationID As String) As ActivationRow
1379             Dim rowActivationRow As ActivationRow = CType(Me.NewRow,ActivationRow)
1380             Dim columnValuesArray() As Object = New Object() {Nothing, HardwareID, SerialNo, ActivationID}
1381             rowActivationRow.ItemArray = columnValuesArray
1382             Me.Rows.Add(rowActivationRow)
1383             Return rowActivationRow
1384         End Function
1385         
1386         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1387          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1388         Public Function FindByID(ByVal ID As Integer) As ActivationRow
1389             Return CType(Me.Rows.Find(New Object() {ID}),ActivationRow)
1390         End Function
1391         
1392         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1393          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1394         Public Overrides Function Clone() As Global.System.Data.DataTable
1395             Dim cln As ActivationDataTable = CType(MyBase.Clone,ActivationDataTable)
1396             cln.InitVars
1397             Return cln
1398         End Function
1399         
1400         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1401          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1402         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
1403             Return New ActivationDataTable()
1404         End Function
1405         
1406         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1407          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1408         Friend Sub InitVars()
1409             Me.columnID = MyBase.Columns("ID")
1410             Me.columnHardwareID = MyBase.Columns("HardwareID")
1411             Me.columnSerialNo = MyBase.Columns("SerialNo")
1412             Me.columnActivationID = MyBase.Columns("ActivationID")
1413         End Sub
1414         
1415         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1416          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1417         Private Sub InitClass()
1418             Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1419             MyBase.Columns.Add(Me.columnID)
1420             Me.columnHardwareID = New Global.System.Data.DataColumn("HardwareID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1421             MyBase.Columns.Add(Me.columnHardwareID)
1422             Me.columnSerialNo = New Global.System.Data.DataColumn("SerialNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1423             MyBase.Columns.Add(Me.columnSerialNo)
1424             Me.columnActivationID = New Global.System.Data.DataColumn("ActivationID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1425             MyBase.Columns.Add(Me.columnActivationID)
1426             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
1427             Me.columnID.AutoIncrement = true
1428             Me.columnID.AutoIncrementSeed = -1
1429             Me.columnID.AutoIncrementStep = -1
1430             Me.columnID.AllowDBNull = false
1431             Me.columnID.ReadOnly = true
1432             Me.columnID.Unique = true
1433             Me.columnHardwareID.AllowDBNull = false
1434             Me.columnHardwareID.MaxLength = 100
1435             Me.columnSerialNo.AllowDBNull = false
1436             Me.columnSerialNo.MaxLength = 100
1437             Me.columnActivationID.AllowDBNull = false
1438             Me.columnActivationID.MaxLength = 150
1439         End Sub
1440         
1441         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1442          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1443         Public Function NewActivationRow() As ActivationRow
1444             Return CType(Me.NewRow,ActivationRow)
1445         End Function
1446         
1447         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1448          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1449         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
1450             Return New ActivationRow(builder)
1451         End Function
1452         
1453         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1454          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1455         Protected Overrides Function GetRowType() As Global.System.Type
1456             Return GetType(ActivationRow)
1457         End Function
1458         
1459         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1460          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1461         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1462             MyBase.OnRowChanged(e)
1463             If (Not (Me.ActivationRowChangedEvent) Is Nothing) Then
1464                 RaiseEvent ActivationRowChanged(Me, New ActivationRowChangeEvent(CType(e.Row,ActivationRow), e.Action))
1465             End If
1466         End Sub
1467         
1468         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1469          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1470         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1471             MyBase.OnRowChanging(e)
1472             If (Not (Me.ActivationRowChangingEvent) Is Nothing) Then
1473                 RaiseEvent ActivationRowChanging(Me, New ActivationRowChangeEvent(CType(e.Row,ActivationRow), e.Action))
1474             End If
1475         End Sub
1476         
1477         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1478          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1479         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1480             MyBase.OnRowDeleted(e)
1481             If (Not (Me.ActivationRowDeletedEvent) Is Nothing) Then
1482                 RaiseEvent ActivationRowDeleted(Me, New ActivationRowChangeEvent(CType(e.Row,ActivationRow), e.Action))
1483             End If
1484         End Sub
1485         
1486         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1487          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1488         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1489             MyBase.OnRowDeleting(e)
1490             If (Not (Me.ActivationRowDeletingEvent) Is Nothing) Then
1491                 RaiseEvent ActivationRowDeleting(Me, New ActivationRowChangeEvent(CType(e.Row,ActivationRow), e.Action))
1492             End If
1493         End Sub
1494         
1495         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1496          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1497         Public Sub RemoveActivationRow(ByVal row As ActivationRow)
1498             Me.Rows.Remove(row)
1499         End Sub
1500         
1501         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1502          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1503         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1504             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
1505             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
1506             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
1507             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1508             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
1509             any1.MinOccurs = New Decimal(0)
1510             any1.MaxOccurs = Decimal.MaxValue
1511             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1512             sequence.Items.Add(any1)
1513             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1514             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
1515             any2.MinOccurs = New Decimal(1)
1516             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1517             sequence.Items.Add(any2)
1518             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1519             attribute1.Name = "namespace"
1520             attribute1.FixedValue = ds.Namespace
1521             type.Attributes.Add(attribute1)
1522             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1523             attribute2.Name = "tableTypeName"
1524             attribute2.FixedValue = "ActivationDataTable"
1525             type.Attributes.Add(attribute2)
1526             type.Particle = sequence
1527             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1528             If xs.Contains(dsSchema.TargetNamespace) Then
1529                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1530                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1531                 Try
1532                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1533                     dsSchema.Write(s1)
1534                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1535                     Do While schemas.MoveNext
1536                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1537                         s2.SetLength(0)
1538                         schema.Write(s2)
1539                         If (s1.Length = s2.Length) Then
1540                             s1.Position = 0
1541                             s2.Position = 0
1542                             
1543                             Do While ((s1.Position <> s1.Length) _
1544                                         AndAlso (s1.ReadByte = s2.ReadByte))
1545                                 
1546                                 
1547                             Loop
1548                             If (s1.Position = s1.Length) Then
1549                                 Return type
1550                             End If
1551                         End If
1552                         
1553                     Loop
1554                 Finally
1555                     If (Not (s1) Is Nothing) Then
1556                         s1.Close
1557                     End If
1558                     If (Not (s2) Is Nothing) Then
1559                         s2.Close
1560                     End If
1561                 End Try
1562             End If
1563             xs.Add(dsSchema)
1564             Return type
1565         End Function
1566     End Class
1567     
1568     '''<summary>
1569     '''Represents the strongly named DataTable class.
1570     '''</summary>
1571     <Global.System.Serializable(), _
1572      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
1573     Partial Public Class CategoryDataTable
1574         Inherits Global.System.Data.TypedTableBase(Of CategoryRow)
1575         
1576         Private columnCategoryName As Global.System.Data.DataColumn
1577         
1578         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1579          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1580         Public Sub New()
1581             MyBase.New
1582             Me.TableName = "Category"
1583             Me.BeginInit
1584             Me.InitClass
1585             Me.EndInit
1586         End Sub
1587         
1588         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1589          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1590         Friend Sub New(ByVal table As Global.System.Data.DataTable)
1591             MyBase.New
1592             Me.TableName = table.TableName
1593             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1594                 Me.CaseSensitive = table.CaseSensitive
1595             End If
1596             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1597                 Me.Locale = table.Locale
1598             End If
1599             If (table.Namespace <> table.DataSet.Namespace) Then
1600                 Me.Namespace = table.Namespace
1601             End If
1602             Me.Prefix = table.Prefix
1603             Me.MinimumCapacity = table.MinimumCapacity
1604         End Sub
1605         
1606         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1607          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1608         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1609             MyBase.New(info, context)
1610             Me.InitVars
1611         End Sub
1612         
1613         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1614          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1615         Public ReadOnly Property CategoryNameColumn() As Global.System.Data.DataColumn
1616             Get
1617                 Return Me.columnCategoryName
1618             End Get
1619         End Property
1620         
1621         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1622          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
1623          Global.System.ComponentModel.Browsable(false)> _
1624         Public ReadOnly Property Count() As Integer
1625             Get
1626                 Return Me.Rows.Count
1627             End Get
1628         End Property
1629         
1630         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1631          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1632         Public Default ReadOnly Property Item(ByVal index As Integer) As CategoryRow
1633             Get
1634                 Return CType(Me.Rows(index),CategoryRow)
1635             End Get
1636         End Property
1637         
1638         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1639         Public Event CategoryRowChanging As CategoryRowChangeEventHandler
1640         
1641         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1642         Public Event CategoryRowChanged As CategoryRowChangeEventHandler
1643         
1644         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1645         Public Event CategoryRowDeleting As CategoryRowChangeEventHandler
1646         
1647         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1648         Public Event CategoryRowDeleted As CategoryRowChangeEventHandler
1649         
1650         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1651          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1652         Public Overloads Sub AddCategoryRow(ByVal row As CategoryRow)
1653             Me.Rows.Add(row)
1654         End Sub
1655         
1656         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1657          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1658         Public Overloads Function AddCategoryRow(ByVal CategoryName As String) As CategoryRow
1659             Dim rowCategoryRow As CategoryRow = CType(Me.NewRow,CategoryRow)
1660             Dim columnValuesArray() As Object = New Object() {CategoryName}
1661             rowCategoryRow.ItemArray = columnValuesArray
1662             Me.Rows.Add(rowCategoryRow)
1663             Return rowCategoryRow
1664         End Function
1665         
1666         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1667          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1668         Public Function FindByCategoryName(ByVal CategoryName As String) As CategoryRow
1669             Return CType(Me.Rows.Find(New Object() {CategoryName}),CategoryRow)
1670         End Function
1671         
1672         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1673          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1674         Public Overrides Function Clone() As Global.System.Data.DataTable
1675             Dim cln As CategoryDataTable = CType(MyBase.Clone,CategoryDataTable)
1676             cln.InitVars
1677             Return cln
1678         End Function
1679         
1680         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1681          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1682         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
1683             Return New CategoryDataTable()
1684         End Function
1685         
1686         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1687          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1688         Friend Sub InitVars()
1689             Me.columnCategoryName = MyBase.Columns("CategoryName")
1690         End Sub
1691         
1692         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1693          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1694         Private Sub InitClass()
1695             Me.columnCategoryName = New Global.System.Data.DataColumn("CategoryName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1696             MyBase.Columns.Add(Me.columnCategoryName)
1697             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCategoryName}, true))
1698             Me.columnCategoryName.AllowDBNull = false
1699             Me.columnCategoryName.Unique = true
1700             Me.columnCategoryName.MaxLength = 150
1701         End Sub
1702         
1703         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1704          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1705         Public Function NewCategoryRow() As CategoryRow
1706             Return CType(Me.NewRow,CategoryRow)
1707         End Function
1708         
1709         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1710          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1711         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
1712             Return New CategoryRow(builder)
1713         End Function
1714         
1715         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1716          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1717         Protected Overrides Function GetRowType() As Global.System.Type
1718             Return GetType(CategoryRow)
1719         End Function
1720         
1721         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1722          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1723         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1724             MyBase.OnRowChanged(e)
1725             If (Not (Me.CategoryRowChangedEvent) Is Nothing) Then
1726                 RaiseEvent CategoryRowChanged(Me, New CategoryRowChangeEvent(CType(e.Row,CategoryRow), e.Action))
1727             End If
1728         End Sub
1729         
1730         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1731          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1732         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1733             MyBase.OnRowChanging(e)
1734             If (Not (Me.CategoryRowChangingEvent) Is Nothing) Then
1735                 RaiseEvent CategoryRowChanging(Me, New CategoryRowChangeEvent(CType(e.Row,CategoryRow), e.Action))
1736             End If
1737         End Sub
1738         
1739         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1740          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1741         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1742             MyBase.OnRowDeleted(e)
1743             If (Not (Me.CategoryRowDeletedEvent) Is Nothing) Then
1744                 RaiseEvent CategoryRowDeleted(Me, New CategoryRowChangeEvent(CType(e.Row,CategoryRow), e.Action))
1745             End If
1746         End Sub
1747         
1748         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1749          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1750         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1751             MyBase.OnRowDeleting(e)
1752             If (Not (Me.CategoryRowDeletingEvent) Is Nothing) Then
1753                 RaiseEvent CategoryRowDeleting(Me, New CategoryRowChangeEvent(CType(e.Row,CategoryRow), e.Action))
1754             End If
1755         End Sub
1756         
1757         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1758          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1759         Public Sub RemoveCategoryRow(ByVal row As CategoryRow)
1760             Me.Rows.Remove(row)
1761         End Sub
1762         
1763         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1764          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1765         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1766             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
1767             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
1768             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
1769             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1770             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
1771             any1.MinOccurs = New Decimal(0)
1772             any1.MaxOccurs = Decimal.MaxValue
1773             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1774             sequence.Items.Add(any1)
1775             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1776             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
1777             any2.MinOccurs = New Decimal(1)
1778             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1779             sequence.Items.Add(any2)
1780             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1781             attribute1.Name = "namespace"
1782             attribute1.FixedValue = ds.Namespace
1783             type.Attributes.Add(attribute1)
1784             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1785             attribute2.Name = "tableTypeName"
1786             attribute2.FixedValue = "CategoryDataTable"
1787             type.Attributes.Add(attribute2)
1788             type.Particle = sequence
1789             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1790             If xs.Contains(dsSchema.TargetNamespace) Then
1791                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1792                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1793                 Try
1794                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1795                     dsSchema.Write(s1)
1796                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1797                     Do While schemas.MoveNext
1798                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1799                         s2.SetLength(0)
1800                         schema.Write(s2)
1801                         If (s1.Length = s2.Length) Then
1802                             s1.Position = 0
1803                             s2.Position = 0
1804                             
1805                             Do While ((s1.Position <> s1.Length) _
1806                                         AndAlso (s1.ReadByte = s2.ReadByte))
1807                                 
1808                                 
1809                             Loop
1810                             If (s1.Position = s1.Length) Then
1811                                 Return type
1812                             End If
1813                         End If
1814                         
1815                     Loop
1816                 Finally
1817                     If (Not (s1) Is Nothing) Then
1818                         s1.Close
1819                     End If
1820                     If (Not (s2) Is Nothing) Then
1821                         s2.Close
1822                     End If
1823                 End Try
1824             End If
1825             xs.Add(dsSchema)
1826             Return type
1827         End Function
1828     End Class
1829     
1830     '''<summary>
1831     '''Represents the strongly named DataTable class.
1832     '''</summary>
1833     <Global.System.Serializable(), _
1834      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
1835     Partial Public Class CompanyDataTable
1836         Inherits Global.System.Data.TypedTableBase(Of CompanyRow)
1837         
1838         Private columnID As Global.System.Data.DataColumn
1839         
1840         Private columnCompanyName As Global.System.Data.DataColumn
1841         
1842         Private columnAddress As Global.System.Data.DataColumn
1843         
1844         Private columnContactNo As Global.System.Data.DataColumn
1845         
1846         Private columnEmailID As Global.System.Data.DataColumn
1847         
1848         Private columnLogo As Global.System.Data.DataColumn
1849         
1850         Private columnTIN As Global.System.Data.DataColumn
1851         
1852         Private columnSTNo As Global.System.Data.DataColumn
1853         
1854         Private columnCIN As Global.System.Data.DataColumn
1855         
1856         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1857          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1858         Public Sub New()
1859             MyBase.New
1860             Me.TableName = "Company"
1861             Me.BeginInit
1862             Me.InitClass
1863             Me.EndInit
1864         End Sub
1865         
1866         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1867          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1868         Friend Sub New(ByVal table As Global.System.Data.DataTable)
1869             MyBase.New
1870             Me.TableName = table.TableName
1871             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1872                 Me.CaseSensitive = table.CaseSensitive
1873             End If
1874             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1875                 Me.Locale = table.Locale
1876             End If
1877             If (table.Namespace <> table.DataSet.Namespace) Then
1878                 Me.Namespace = table.Namespace
1879             End If
1880             Me.Prefix = table.Prefix
1881             Me.MinimumCapacity = table.MinimumCapacity
1882         End Sub
1883         
1884         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1885          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1886         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1887             MyBase.New(info, context)
1888             Me.InitVars
1889         End Sub
1890         
1891         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1892          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1893         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
1894             Get
1895                 Return Me.columnID
1896             End Get
1897         End Property
1898         
1899         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1900          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1901         Public ReadOnly Property CompanyNameColumn() As Global.System.Data.DataColumn
1902             Get
1903                 Return Me.columnCompanyName
1904             End Get
1905         End Property
1906         
1907         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1908          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1909         Public ReadOnly Property AddressColumn() As Global.System.Data.DataColumn
1910             Get
1911                 Return Me.columnAddress
1912             End Get
1913         End Property
1914         
1915         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1916          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1917         Public ReadOnly Property ContactNoColumn() As Global.System.Data.DataColumn
1918             Get
1919                 Return Me.columnContactNo
1920             End Get
1921         End Property
1922         
1923         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1924          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1925         Public ReadOnly Property EmailIDColumn() As Global.System.Data.DataColumn
1926             Get
1927                 Return Me.columnEmailID
1928             End Get
1929         End Property
1930         
1931         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1932          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1933         Public ReadOnly Property LogoColumn() As Global.System.Data.DataColumn
1934             Get
1935                 Return Me.columnLogo
1936             End Get
1937         End Property
1938         
1939         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1940          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1941         Public ReadOnly Property TINColumn() As Global.System.Data.DataColumn
1942             Get
1943                 Return Me.columnTIN
1944             End Get
1945         End Property
1946         
1947         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1948          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1949         Public ReadOnly Property STNoColumn() As Global.System.Data.DataColumn
1950             Get
1951                 Return Me.columnSTNo
1952             End Get
1953         End Property
1954         
1955         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1956          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1957         Public ReadOnly Property CINColumn() As Global.System.Data.DataColumn
1958             Get
1959                 Return Me.columnCIN
1960             End Get
1961         End Property
1962         
1963         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1964          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
1965          Global.System.ComponentModel.Browsable(false)> _
1966         Public ReadOnly Property Count() As Integer
1967             Get
1968                 Return Me.Rows.Count
1969             End Get
1970         End Property
1971         
1972         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1973          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1974         Public Default ReadOnly Property Item(ByVal index As Integer) As CompanyRow
1975             Get
1976                 Return CType(Me.Rows(index),CompanyRow)
1977             End Get
1978         End Property
1979         
1980         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1981         Public Event CompanyRowChanging As CompanyRowChangeEventHandler
1982         
1983         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1984         Public Event CompanyRowChanged As CompanyRowChangeEventHandler
1985         
1986         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1987         Public Event CompanyRowDeleting As CompanyRowChangeEventHandler
1988         
1989         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1990         Public Event CompanyRowDeleted As CompanyRowChangeEventHandler
1991         
1992         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1993          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1994         Public Overloads Sub AddCompanyRow(ByVal row As CompanyRow)
1995             Me.Rows.Add(row)
1996         End Sub
1997         
1998         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1999          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2000         Public Overloads Function AddCompanyRow(ByVal CompanyName As String, ByVal Address As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal Logo() As Byte, ByVal TIN As String, ByVal STNo As String, ByVal CIN As String) As CompanyRow
2001             Dim rowCompanyRow As CompanyRow = CType(Me.NewRow,CompanyRow)
2002             Dim columnValuesArray() As Object = New Object() {Nothing, CompanyName, Address, ContactNo, EmailID, Logo, TIN, STNo, CIN}
2003             rowCompanyRow.ItemArray = columnValuesArray
2004             Me.Rows.Add(rowCompanyRow)
2005             Return rowCompanyRow
2006         End Function
2007         
2008         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2009          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2010         Public Function FindByID(ByVal ID As Integer) As CompanyRow
2011             Return CType(Me.Rows.Find(New Object() {ID}),CompanyRow)
2012         End Function
2013         
2014         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2015          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2016         Public Overrides Function Clone() As Global.System.Data.DataTable
2017             Dim cln As CompanyDataTable = CType(MyBase.Clone,CompanyDataTable)
2018             cln.InitVars
2019             Return cln
2020         End Function
2021         
2022         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2023          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2024         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
2025             Return New CompanyDataTable()
2026         End Function
2027         
2028         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2029          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2030         Friend Sub InitVars()
2031             Me.columnID = MyBase.Columns("ID")
2032             Me.columnCompanyName = MyBase.Columns("CompanyName")
2033             Me.columnAddress = MyBase.Columns("Address")
2034             Me.columnContactNo = MyBase.Columns("ContactNo")
2035             Me.columnEmailID = MyBase.Columns("EmailID")
2036             Me.columnLogo = MyBase.Columns("Logo")
2037             Me.columnTIN = MyBase.Columns("TIN")
2038             Me.columnSTNo = MyBase.Columns("STNo")
2039             Me.columnCIN = MyBase.Columns("CIN")
2040         End Sub
2041         
2042         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2043          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2044         Private Sub InitClass()
2045             Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2046             MyBase.Columns.Add(Me.columnID)
2047             Me.columnCompanyName = New Global.System.Data.DataColumn("CompanyName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2048             MyBase.Columns.Add(Me.columnCompanyName)
2049             Me.columnAddress = New Global.System.Data.DataColumn("Address", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2050             MyBase.Columns.Add(Me.columnAddress)
2051             Me.columnContactNo = New Global.System.Data.DataColumn("ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2052             MyBase.Columns.Add(Me.columnContactNo)
2053             Me.columnEmailID = New Global.System.Data.DataColumn("EmailID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2054             MyBase.Columns.Add(Me.columnEmailID)
2055             Me.columnLogo = New Global.System.Data.DataColumn("Logo", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
2056             MyBase.Columns.Add(Me.columnLogo)
2057             Me.columnTIN = New Global.System.Data.DataColumn("TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2058             MyBase.Columns.Add(Me.columnTIN)
2059             Me.columnSTNo = New Global.System.Data.DataColumn("STNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2060             MyBase.Columns.Add(Me.columnSTNo)
2061             Me.columnCIN = New Global.System.Data.DataColumn("CIN", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2062             MyBase.Columns.Add(Me.columnCIN)
2063             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
2064             Me.columnID.AutoIncrement = true
2065             Me.columnID.AutoIncrementSeed = -1
2066             Me.columnID.AutoIncrementStep = -1
2067             Me.columnID.AllowDBNull = false
2068             Me.columnID.ReadOnly = true
2069             Me.columnID.Unique = true
2070             Me.columnCompanyName.AllowDBNull = false
2071             Me.columnCompanyName.MaxLength = 200
2072             Me.columnAddress.AllowDBNull = false
2073             Me.columnAddress.MaxLength = 250
2074             Me.columnContactNo.AllowDBNull = false
2075             Me.columnContactNo.MaxLength = 150
2076             Me.columnEmailID.AllowDBNull = false
2077             Me.columnEmailID.MaxLength = 150
2078             Me.columnLogo.AllowDBNull = false
2079             Me.columnTIN.MaxLength = 150
2080             Me.columnSTNo.MaxLength = 150
2081             Me.columnCIN.MaxLength = 150
2082         End Sub
2083         
2084         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2085          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2086         Public Function NewCompanyRow() As CompanyRow
2087             Return CType(Me.NewRow,CompanyRow)
2088         End Function
2089         
2090         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2091          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2092         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
2093             Return New CompanyRow(builder)
2094         End Function
2095         
2096         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2097          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2098         Protected Overrides Function GetRowType() As Global.System.Type
2099             Return GetType(CompanyRow)
2100         End Function
2101         
2102         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2103          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2104         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2105             MyBase.OnRowChanged(e)
2106             If (Not (Me.CompanyRowChangedEvent) Is Nothing) Then
2107                 RaiseEvent CompanyRowChanged(Me, New CompanyRowChangeEvent(CType(e.Row,CompanyRow), e.Action))
2108             End If
2109         End Sub
2110         
2111         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2112          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2113         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2114             MyBase.OnRowChanging(e)
2115             If (Not (Me.CompanyRowChangingEvent) Is Nothing) Then
2116                 RaiseEvent CompanyRowChanging(Me, New CompanyRowChangeEvent(CType(e.Row,CompanyRow), e.Action))
2117             End If
2118         End Sub
2119         
2120         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2121          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2122         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2123             MyBase.OnRowDeleted(e)
2124             If (Not (Me.CompanyRowDeletedEvent) Is Nothing) Then
2125                 RaiseEvent CompanyRowDeleted(Me, New CompanyRowChangeEvent(CType(e.Row,CompanyRow), e.Action))
2126             End If
2127         End Sub
2128         
2129         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2130          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2131         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2132             MyBase.OnRowDeleting(e)
2133             If (Not (Me.CompanyRowDeletingEvent) Is Nothing) Then
2134                 RaiseEvent CompanyRowDeleting(Me, New CompanyRowChangeEvent(CType(e.Row,CompanyRow), e.Action))
2135             End If
2136         End Sub
2137         
2138         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2139          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2140         Public Sub RemoveCompanyRow(ByVal row As CompanyRow)
2141             Me.Rows.Remove(row)
2142         End Sub
2143         
2144         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2145          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2146         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2147             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
2148             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
2149             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
2150             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2151             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2152             any1.MinOccurs = New Decimal(0)
2153             any1.MaxOccurs = Decimal.MaxValue
2154             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2155             sequence.Items.Add(any1)
2156             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2157             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2158             any2.MinOccurs = New Decimal(1)
2159             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2160             sequence.Items.Add(any2)
2161             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2162             attribute1.Name = "namespace"
2163             attribute1.FixedValue = ds.Namespace
2164             type.Attributes.Add(attribute1)
2165             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2166             attribute2.Name = "tableTypeName"
2167             attribute2.FixedValue = "CompanyDataTable"
2168             type.Attributes.Add(attribute2)
2169             type.Particle = sequence
2170             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2171             If xs.Contains(dsSchema.TargetNamespace) Then
2172                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2173                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2174                 Try
2175                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2176                     dsSchema.Write(s1)
2177                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2178                     Do While schemas.MoveNext
2179                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2180                         s2.SetLength(0)
2181                         schema.Write(s2)
2182                         If (s1.Length = s2.Length) Then
2183                             s1.Position = 0
2184                             s2.Position = 0
2185                             
2186                             Do While ((s1.Position <> s1.Length) _
2187                                         AndAlso (s1.ReadByte = s2.ReadByte))
2188                                 
2189                                 
2190                             Loop
2191                             If (s1.Position = s1.Length) Then
2192                                 Return type
2193                             End If
2194                         End If
2195                         
2196                     Loop
2197                 Finally
2198                     If (Not (s1) Is Nothing) Then
2199                         s1.Close
2200                     End If
2201                     If (Not (s2) Is Nothing) Then
2202                         s2.Close
2203                     End If
2204                 End Try
2205             End If
2206             xs.Add(dsSchema)
2207             Return type
2208         End Function
2209     End Class
2210     
2211     '''<summary>
2212     '''Represents the strongly named DataTable class.
2213     '''</summary>
2214     <Global.System.Serializable(), _
2215      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
2216     Partial Public Class Company_ContactsDataTable
2217         Inherits Global.System.Data.TypedTableBase(Of Company_ContactsRow)
2218         
2219         Private columnId As Global.System.Data.DataColumn
2220         
2221         Private columnContactPerson As Global.System.Data.DataColumn
2222         
2223         Private columnContactNo As Global.System.Data.DataColumn
2224         
2225         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2226          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2227         Public Sub New()
2228             MyBase.New
2229             Me.TableName = "Company_Contacts"
2230             Me.BeginInit
2231             Me.InitClass
2232             Me.EndInit
2233         End Sub
2234         
2235         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2236          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2237         Friend Sub New(ByVal table As Global.System.Data.DataTable)
2238             MyBase.New
2239             Me.TableName = table.TableName
2240             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2241                 Me.CaseSensitive = table.CaseSensitive
2242             End If
2243             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2244                 Me.Locale = table.Locale
2245             End If
2246             If (table.Namespace <> table.DataSet.Namespace) Then
2247                 Me.Namespace = table.Namespace
2248             End If
2249             Me.Prefix = table.Prefix
2250             Me.MinimumCapacity = table.MinimumCapacity
2251         End Sub
2252         
2253         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2254          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2255         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2256             MyBase.New(info, context)
2257             Me.InitVars
2258         End Sub
2259         
2260         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2261          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2262         Public ReadOnly Property IdColumn() As Global.System.Data.DataColumn
2263             Get
2264                 Return Me.columnId
2265             End Get
2266         End Property
2267         
2268         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2269          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2270         Public ReadOnly Property ContactPersonColumn() As Global.System.Data.DataColumn
2271             Get
2272                 Return Me.columnContactPerson
2273             End Get
2274         End Property
2275         
2276         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2277          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2278         Public ReadOnly Property ContactNoColumn() As Global.System.Data.DataColumn
2279             Get
2280                 Return Me.columnContactNo
2281             End Get
2282         End Property
2283         
2284         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2285          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
2286          Global.System.ComponentModel.Browsable(false)> _
2287         Public ReadOnly Property Count() As Integer
2288             Get
2289                 Return Me.Rows.Count
2290             End Get
2291         End Property
2292         
2293         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2294          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2295         Public Default ReadOnly Property Item(ByVal index As Integer) As Company_ContactsRow
2296             Get
2297                 Return CType(Me.Rows(index),Company_ContactsRow)
2298             End Get
2299         End Property
2300         
2301         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2302         Public Event Company_ContactsRowChanging As Company_ContactsRowChangeEventHandler
2303         
2304         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2305         Public Event Company_ContactsRowChanged As Company_ContactsRowChangeEventHandler
2306         
2307         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2308         Public Event Company_ContactsRowDeleting As Company_ContactsRowChangeEventHandler
2309         
2310         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2311         Public Event Company_ContactsRowDeleted As Company_ContactsRowChangeEventHandler
2312         
2313         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2314          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2315         Public Overloads Sub AddCompany_ContactsRow(ByVal row As Company_ContactsRow)
2316             Me.Rows.Add(row)
2317         End Sub
2318         
2319         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2320          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2321         Public Overloads Function AddCompany_ContactsRow(ByVal ContactPerson As String, ByVal ContactNo As String) As Company_ContactsRow
2322             Dim rowCompany_ContactsRow As Company_ContactsRow = CType(Me.NewRow,Company_ContactsRow)
2323             Dim columnValuesArray() As Object = New Object() {Nothing, ContactPerson, ContactNo}
2324             rowCompany_ContactsRow.ItemArray = columnValuesArray
2325             Me.Rows.Add(rowCompany_ContactsRow)
2326             Return rowCompany_ContactsRow
2327         End Function
2328         
2329         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2330          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2331         Public Function FindById(ByVal Id As Integer) As Company_ContactsRow
2332             Return CType(Me.Rows.Find(New Object() {Id}),Company_ContactsRow)
2333         End Function
2334         
2335         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2336          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2337         Public Overrides Function Clone() As Global.System.Data.DataTable
2338             Dim cln As Company_ContactsDataTable = CType(MyBase.Clone,Company_ContactsDataTable)
2339             cln.InitVars
2340             Return cln
2341         End Function
2342         
2343         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2344          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2345         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
2346             Return New Company_ContactsDataTable()
2347         End Function
2348         
2349         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2350          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2351         Friend Sub InitVars()
2352             Me.columnId = MyBase.Columns("Id")
2353             Me.columnContactPerson = MyBase.Columns("ContactPerson")
2354             Me.columnContactNo = MyBase.Columns("ContactNo")
2355         End Sub
2356         
2357         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2358          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2359         Private Sub InitClass()
2360             Me.columnId = New Global.System.Data.DataColumn("Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2361             MyBase.Columns.Add(Me.columnId)
2362             Me.columnContactPerson = New Global.System.Data.DataColumn("ContactPerson", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2363             MyBase.Columns.Add(Me.columnContactPerson)
2364             Me.columnContactNo = New Global.System.Data.DataColumn("ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2365             MyBase.Columns.Add(Me.columnContactNo)
2366             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true))
2367             Me.columnId.AutoIncrement = true
2368             Me.columnId.AutoIncrementSeed = -1
2369             Me.columnId.AutoIncrementStep = -1
2370             Me.columnId.AllowDBNull = false
2371             Me.columnId.ReadOnly = true
2372             Me.columnId.Unique = true
2373             Me.columnContactPerson.AllowDBNull = false
2374             Me.columnContactPerson.MaxLength = 150
2375             Me.columnContactNo.AllowDBNull = false
2376             Me.columnContactNo.MaxLength = 150
2377         End Sub
2378         
2379         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2380          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2381         Public Function NewCompany_ContactsRow() As Company_ContactsRow
2382             Return CType(Me.NewRow,Company_ContactsRow)
2383         End Function
2384         
2385         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2386          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2387         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
2388             Return New Company_ContactsRow(builder)
2389         End Function
2390         
2391         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2392          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2393         Protected Overrides Function GetRowType() As Global.System.Type
2394             Return GetType(Company_ContactsRow)
2395         End Function
2396         
2397         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2398          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2399         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2400             MyBase.OnRowChanged(e)
2401             If (Not (Me.Company_ContactsRowChangedEvent) Is Nothing) Then
2402                 RaiseEvent Company_ContactsRowChanged(Me, New Company_ContactsRowChangeEvent(CType(e.Row,Company_ContactsRow), e.Action))
2403             End If
2404         End Sub
2405         
2406         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2407          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2408         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2409             MyBase.OnRowChanging(e)
2410             If (Not (Me.Company_ContactsRowChangingEvent) Is Nothing) Then
2411                 RaiseEvent Company_ContactsRowChanging(Me, New Company_ContactsRowChangeEvent(CType(e.Row,Company_ContactsRow), e.Action))
2412             End If
2413         End Sub
2414         
2415         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2416          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2417         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2418             MyBase.OnRowDeleted(e)
2419             If (Not (Me.Company_ContactsRowDeletedEvent) Is Nothing) Then
2420                 RaiseEvent Company_ContactsRowDeleted(Me, New Company_ContactsRowChangeEvent(CType(e.Row,Company_ContactsRow), e.Action))
2421             End If
2422         End Sub
2423         
2424         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2425          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2426         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2427             MyBase.OnRowDeleting(e)
2428             If (Not (Me.Company_ContactsRowDeletingEvent) Is Nothing) Then
2429                 RaiseEvent Company_ContactsRowDeleting(Me, New Company_ContactsRowChangeEvent(CType(e.Row,Company_ContactsRow), e.Action))
2430             End If
2431         End Sub
2432         
2433         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2434          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2435         Public Sub RemoveCompany_ContactsRow(ByVal row As Company_ContactsRow)
2436             Me.Rows.Remove(row)
2437         End Sub
2438         
2439         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2440          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2441         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2442             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
2443             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
2444             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
2445             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2446             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2447             any1.MinOccurs = New Decimal(0)
2448             any1.MaxOccurs = Decimal.MaxValue
2449             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2450             sequence.Items.Add(any1)
2451             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2452             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2453             any2.MinOccurs = New Decimal(1)
2454             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2455             sequence.Items.Add(any2)
2456             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2457             attribute1.Name = "namespace"
2458             attribute1.FixedValue = ds.Namespace
2459             type.Attributes.Add(attribute1)
2460             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2461             attribute2.Name = "tableTypeName"
2462             attribute2.FixedValue = "Company_ContactsDataTable"
2463             type.Attributes.Add(attribute2)
2464             type.Particle = sequence
2465             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2466             If xs.Contains(dsSchema.TargetNamespace) Then
2467                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2468                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2469                 Try
2470                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2471                     dsSchema.Write(s1)
2472                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2473                     Do While schemas.MoveNext
2474                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2475                         s2.SetLength(0)
2476                         schema.Write(s2)
2477                         If (s1.Length = s2.Length) Then
2478                             s1.Position = 0
2479                             s2.Position = 0
2480                             
2481                             Do While ((s1.Position <> s1.Length) _
2482                                         AndAlso (s1.ReadByte = s2.ReadByte))
2483                                 
2484                                 
2485                             Loop
2486                             If (s1.Position = s1.Length) Then
2487                                 Return type
2488                             End If
2489                         End If
2490                         
2491                     Loop
2492                 Finally
2493                     If (Not (s1) Is Nothing) Then
2494                         s1.Close
2495                     End If
2496                     If (Not (s2) Is Nothing) Then
2497                         s2.Close
2498                     End If
2499                 End Try
2500             End If
2501             xs.Add(dsSchema)
2502             Return type
2503         End Function
2504     End Class
2505     
2506     '''<summary>
2507     '''Represents the strongly named DataTable class.
2508     '''</summary>
2509     <Global.System.Serializable(), _
2510      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
2511     Partial Public Class CustomerDataTable
2512         Inherits Global.System.Data.TypedTableBase(Of CustomerRow)
2513         
2514         Private columnID As Global.System.Data.DataColumn
2515         
2516         Private columnCustomerID As Global.System.Data.DataColumn
2517         
2518         Private columnName As Global.System.Data.DataColumn
2519         
2520         Private columnGender As Global.System.Data.DataColumn
2521         
2522         Private columnAddress As Global.System.Data.DataColumn
2523         
2524         Private columnCity As Global.System.Data.DataColumn
2525         
2526         Private columnState As Global.System.Data.DataColumn
2527         
2528         Private columnZipCode As Global.System.Data.DataColumn
2529         
2530         Private columnContactNo As Global.System.Data.DataColumn
2531         
2532         Private columnEmailID As Global.System.Data.DataColumn
2533         
2534         Private columnRemarks As Global.System.Data.DataColumn
2535         
2536         Private columnPhoto As Global.System.Data.DataColumn
2537         
2538         Private columnCustomerType As Global.System.Data.DataColumn
2539         
2540         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2541          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2542         Public Sub New()
2543             MyBase.New
2544             Me.TableName = "Customer"
2545             Me.BeginInit
2546             Me.InitClass
2547             Me.EndInit
2548         End Sub
2549         
2550         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2551          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2552         Friend Sub New(ByVal table As Global.System.Data.DataTable)
2553             MyBase.New
2554             Me.TableName = table.TableName
2555             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2556                 Me.CaseSensitive = table.CaseSensitive
2557             End If
2558             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2559                 Me.Locale = table.Locale
2560             End If
2561             If (table.Namespace <> table.DataSet.Namespace) Then
2562                 Me.Namespace = table.Namespace
2563             End If
2564             Me.Prefix = table.Prefix
2565             Me.MinimumCapacity = table.MinimumCapacity
2566         End Sub
2567         
2568         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2569          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2570         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2571             MyBase.New(info, context)
2572             Me.InitVars
2573         End Sub
2574         
2575         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2576          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2577         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
2578             Get
2579                 Return Me.columnID
2580             End Get
2581         End Property
2582         
2583         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2584          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2585         Public ReadOnly Property CustomerIDColumn() As Global.System.Data.DataColumn
2586             Get
2587                 Return Me.columnCustomerID
2588             End Get
2589         End Property
2590         
2591         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2592          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2593         Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn
2594             Get
2595                 Return Me.columnName
2596             End Get
2597         End Property
2598         
2599         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2600          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2601         Public ReadOnly Property GenderColumn() As Global.System.Data.DataColumn
2602             Get
2603                 Return Me.columnGender
2604             End Get
2605         End Property
2606         
2607         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2608          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2609         Public ReadOnly Property AddressColumn() As Global.System.Data.DataColumn
2610             Get
2611                 Return Me.columnAddress
2612             End Get
2613         End Property
2614         
2615         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2616          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2617         Public ReadOnly Property CityColumn() As Global.System.Data.DataColumn
2618             Get
2619                 Return Me.columnCity
2620             End Get
2621         End Property
2622         
2623         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2624          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2625         Public ReadOnly Property StateColumn() As Global.System.Data.DataColumn
2626             Get
2627                 Return Me.columnState
2628             End Get
2629         End Property
2630         
2631         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2632          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2633         Public ReadOnly Property ZipCodeColumn() As Global.System.Data.DataColumn
2634             Get
2635                 Return Me.columnZipCode
2636             End Get
2637         End Property
2638         
2639         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2640          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2641         Public ReadOnly Property ContactNoColumn() As Global.System.Data.DataColumn
2642             Get
2643                 Return Me.columnContactNo
2644             End Get
2645         End Property
2646         
2647         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2648          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2649         Public ReadOnly Property EmailIDColumn() As Global.System.Data.DataColumn
2650             Get
2651                 Return Me.columnEmailID
2652             End Get
2653         End Property
2654         
2655         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2656          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2657         Public ReadOnly Property RemarksColumn() As Global.System.Data.DataColumn
2658             Get
2659                 Return Me.columnRemarks
2660             End Get
2661         End Property
2662         
2663         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2664          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2665         Public ReadOnly Property PhotoColumn() As Global.System.Data.DataColumn
2666             Get
2667                 Return Me.columnPhoto
2668             End Get
2669         End Property
2670         
2671         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2672          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2673         Public ReadOnly Property CustomerTypeColumn() As Global.System.Data.DataColumn
2674             Get
2675                 Return Me.columnCustomerType
2676             End Get
2677         End Property
2678         
2679         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2680          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
2681          Global.System.ComponentModel.Browsable(false)> _
2682         Public ReadOnly Property Count() As Integer
2683             Get
2684                 Return Me.Rows.Count
2685             End Get
2686         End Property
2687         
2688         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2689          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2690         Public Default ReadOnly Property Item(ByVal index As Integer) As CustomerRow
2691             Get
2692                 Return CType(Me.Rows(index),CustomerRow)
2693             End Get
2694         End Property
2695         
2696         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2697         Public Event CustomerRowChanging As CustomerRowChangeEventHandler
2698         
2699         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2700         Public Event CustomerRowChanged As CustomerRowChangeEventHandler
2701         
2702         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2703         Public Event CustomerRowDeleting As CustomerRowChangeEventHandler
2704         
2705         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2706         Public Event CustomerRowDeleted As CustomerRowChangeEventHandler
2707         
2708         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2709          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2710         Public Overloads Sub AddCustomerRow(ByVal row As CustomerRow)
2711             Me.Rows.Add(row)
2712         End Sub
2713         
2714         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2715          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2716         Public Overloads Function AddCustomerRow(ByVal ID As Integer, ByVal CustomerID As String, ByVal Name As String, ByVal Gender As String, ByVal Address As String, ByVal City As String, ByVal State As String, ByVal ZipCode As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal Remarks As String, ByVal Photo() As Byte, ByVal CustomerType As String) As CustomerRow
2717             Dim rowCustomerRow As CustomerRow = CType(Me.NewRow,CustomerRow)
2718             Dim columnValuesArray() As Object = New Object() {ID, CustomerID, Name, Gender, Address, City, State, ZipCode, ContactNo, EmailID, Remarks, Photo, CustomerType}
2719             rowCustomerRow.ItemArray = columnValuesArray
2720             Me.Rows.Add(rowCustomerRow)
2721             Return rowCustomerRow
2722         End Function
2723         
2724         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2725          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2726         Public Function FindByID(ByVal ID As Integer) As CustomerRow
2727             Return CType(Me.Rows.Find(New Object() {ID}),CustomerRow)
2728         End Function
2729         
2730         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2731          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2732         Public Overrides Function Clone() As Global.System.Data.DataTable
2733             Dim cln As CustomerDataTable = CType(MyBase.Clone,CustomerDataTable)
2734             cln.InitVars
2735             Return cln
2736         End Function
2737         
2738         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2739          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2740         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
2741             Return New CustomerDataTable()
2742         End Function
2743         
2744         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2745          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2746         Friend Sub InitVars()
2747             Me.columnID = MyBase.Columns("ID")
2748             Me.columnCustomerID = MyBase.Columns("CustomerID")
2749             Me.columnName = MyBase.Columns("Name")
2750             Me.columnGender = MyBase.Columns("Gender")
2751             Me.columnAddress = MyBase.Columns("Address")
2752             Me.columnCity = MyBase.Columns("City")
2753             Me.columnState = MyBase.Columns("State")
2754             Me.columnZipCode = MyBase.Columns("ZipCode")
2755             Me.columnContactNo = MyBase.Columns("ContactNo")
2756             Me.columnEmailID = MyBase.Columns("EmailID")
2757             Me.columnRemarks = MyBase.Columns("Remarks")
2758             Me.columnPhoto = MyBase.Columns("Photo")
2759             Me.columnCustomerType = MyBase.Columns("CustomerType")
2760         End Sub
2761         
2762         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2763          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2764         Private Sub InitClass()
2765             Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2766             MyBase.Columns.Add(Me.columnID)
2767             Me.columnCustomerID = New Global.System.Data.DataColumn("CustomerID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2768             MyBase.Columns.Add(Me.columnCustomerID)
2769             Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2770             MyBase.Columns.Add(Me.columnName)
2771             Me.columnGender = New Global.System.Data.DataColumn("Gender", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2772             MyBase.Columns.Add(Me.columnGender)
2773             Me.columnAddress = New Global.System.Data.DataColumn("Address", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2774             MyBase.Columns.Add(Me.columnAddress)
2775             Me.columnCity = New Global.System.Data.DataColumn("City", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2776             MyBase.Columns.Add(Me.columnCity)
2777             Me.columnState = New Global.System.Data.DataColumn("State", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2778             MyBase.Columns.Add(Me.columnState)
2779             Me.columnZipCode = New Global.System.Data.DataColumn("ZipCode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2780             MyBase.Columns.Add(Me.columnZipCode)
2781             Me.columnContactNo = New Global.System.Data.DataColumn("ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2782             MyBase.Columns.Add(Me.columnContactNo)
2783             Me.columnEmailID = New Global.System.Data.DataColumn("EmailID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2784             MyBase.Columns.Add(Me.columnEmailID)
2785             Me.columnRemarks = New Global.System.Data.DataColumn("Remarks", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2786             MyBase.Columns.Add(Me.columnRemarks)
2787             Me.columnPhoto = New Global.System.Data.DataColumn("Photo", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
2788             MyBase.Columns.Add(Me.columnPhoto)
2789             Me.columnCustomerType = New Global.System.Data.DataColumn("CustomerType", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2790             MyBase.Columns.Add(Me.columnCustomerType)
2791             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
2792             Me.columnID.AllowDBNull = false
2793             Me.columnID.Unique = true
2794             Me.columnCustomerID.MaxLength = 30
2795             Me.columnName.MaxLength = 200
2796             Me.columnGender.MaxLength = 10
2797             Me.columnAddress.MaxLength = 250
2798             Me.columnCity.MaxLength = 200
2799             Me.columnState.MaxLength = 150
2800             Me.columnZipCode.MaxLength = 15
2801             Me.columnContactNo.MaxLength = 150
2802             Me.columnEmailID.MaxLength = 200
2803             Me.columnRemarks.MaxLength = 2147483647
2804             Me.columnCustomerType.MaxLength = 30
2805         End Sub
2806         
2807         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2808          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2809         Public Function NewCustomerRow() As CustomerRow
2810             Return CType(Me.NewRow,CustomerRow)
2811         End Function
2812         
2813         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2814          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2815         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
2816             Return New CustomerRow(builder)
2817         End Function
2818         
2819         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2820          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2821         Protected Overrides Function GetRowType() As Global.System.Type
2822             Return GetType(CustomerRow)
2823         End Function
2824         
2825         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2826          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2827         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2828             MyBase.OnRowChanged(e)
2829             If (Not (Me.CustomerRowChangedEvent) Is Nothing) Then
2830                 RaiseEvent CustomerRowChanged(Me, New CustomerRowChangeEvent(CType(e.Row,CustomerRow), e.Action))
2831             End If
2832         End Sub
2833         
2834         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2835          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2836         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2837             MyBase.OnRowChanging(e)
2838             If (Not (Me.CustomerRowChangingEvent) Is Nothing) Then
2839                 RaiseEvent CustomerRowChanging(Me, New CustomerRowChangeEvent(CType(e.Row,CustomerRow), e.Action))
2840             End If
2841         End Sub
2842         
2843         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2844          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2845         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2846             MyBase.OnRowDeleted(e)
2847             If (Not (Me.CustomerRowDeletedEvent) Is Nothing) Then
2848                 RaiseEvent CustomerRowDeleted(Me, New CustomerRowChangeEvent(CType(e.Row,CustomerRow), e.Action))
2849             End If
2850         End Sub
2851         
2852         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2853          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2854         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2855             MyBase.OnRowDeleting(e)
2856             If (Not (Me.CustomerRowDeletingEvent) Is Nothing) Then
2857                 RaiseEvent CustomerRowDeleting(Me, New CustomerRowChangeEvent(CType(e.Row,CustomerRow), e.Action))
2858             End If
2859         End Sub
2860         
2861         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2862          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2863         Public Sub RemoveCustomerRow(ByVal row As CustomerRow)
2864             Me.Rows.Remove(row)
2865         End Sub
2866         
2867         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2868          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2869         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2870             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
2871             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
2872             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
2873             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2874             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2875             any1.MinOccurs = New Decimal(0)
2876             any1.MaxOccurs = Decimal.MaxValue
2877             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2878             sequence.Items.Add(any1)
2879             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2880             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2881             any2.MinOccurs = New Decimal(1)
2882             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2883             sequence.Items.Add(any2)
2884             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2885             attribute1.Name = "namespace"
2886             attribute1.FixedValue = ds.Namespace
2887             type.Attributes.Add(attribute1)
2888             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2889             attribute2.Name = "tableTypeName"
2890             attribute2.FixedValue = "CustomerDataTable"
2891             type.Attributes.Add(attribute2)
2892             type.Particle = sequence
2893             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2894             If xs.Contains(dsSchema.TargetNamespace) Then
2895                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2896                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2897                 Try
2898                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2899                     dsSchema.Write(s1)
2900                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2901                     Do While schemas.MoveNext
2902                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2903                         s2.SetLength(0)
2904                         schema.Write(s2)
2905                         If (s1.Length = s2.Length) Then
2906                             s1.Position = 0
2907                             s2.Position = 0
2908                             
2909                             Do While ((s1.Position <> s1.Length) _
2910                                         AndAlso (s1.ReadByte = s2.ReadByte))
2911                                 
2912                                 
2913                             Loop
2914                             If (s1.Position = s1.Length) Then
2915                                 Return type
2916                             End If
2917                         End If
2918                         
2919                     Loop
2920                 Finally
2921                     If (Not (s1) Is Nothing) Then
2922                         s1.Close
2923                     End If
2924                     If (Not (s2) Is Nothing) Then
2925                         s2.Close
2926                     End If
2927                 End Try
2928             End If
2929             xs.Add(dsSchema)
2930             Return type
2931         End Function
2932     End Class
2933     
2934     '''<summary>
2935     '''Represents the strongly named DataTable class.
2936     '''</summary>
2937     <Global.System.Serializable(), _
2938      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
2939     Partial Public Class Invoice_PaymentDataTable
2940         Inherits Global.System.Data.TypedTableBase(Of Invoice_PaymentRow)
2941         
2942         Private columnIP_ID As Global.System.Data.DataColumn
2943         
2944         Private columnInvoiceID As Global.System.Data.DataColumn
2945         
2946         Private columnPaymentDate As Global.System.Data.DataColumn
2947         
2948         Private columnTotalPaid As Global.System.Data.DataColumn
2949         
2950         Private columnPaymentMode As Global.System.Data.DataColumn
2951         
2952         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2953          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2954         Public Sub New()
2955             MyBase.New
2956             Me.TableName = "Invoice_Payment"
2957             Me.BeginInit
2958             Me.InitClass
2959             Me.EndInit
2960         End Sub
2961         
2962         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2963          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2964         Friend Sub New(ByVal table As Global.System.Data.DataTable)
2965             MyBase.New
2966             Me.TableName = table.TableName
2967             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2968                 Me.CaseSensitive = table.CaseSensitive
2969             End If
2970             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2971                 Me.Locale = table.Locale
2972             End If
2973             If (table.Namespace <> table.DataSet.Namespace) Then
2974                 Me.Namespace = table.Namespace
2975             End If
2976             Me.Prefix = table.Prefix
2977             Me.MinimumCapacity = table.MinimumCapacity
2978         End Sub
2979         
2980         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2981          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2982         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2983             MyBase.New(info, context)
2984             Me.InitVars
2985         End Sub
2986         
2987         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2988          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2989         Public ReadOnly Property IP_IDColumn() As Global.System.Data.DataColumn
2990             Get
2991                 Return Me.columnIP_ID
2992             End Get
2993         End Property
2994         
2995         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2996          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2997         Public ReadOnly Property InvoiceIDColumn() As Global.System.Data.DataColumn
2998             Get
2999                 Return Me.columnInvoiceID
3000             End Get
3001         End Property
3002         
3003         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3004          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3005         Public ReadOnly Property PaymentDateColumn() As Global.System.Data.DataColumn
3006             Get
3007                 Return Me.columnPaymentDate
3008             End Get
3009         End Property
3010         
3011         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3012          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3013         Public ReadOnly Property TotalPaidColumn() As Global.System.Data.DataColumn
3014             Get
3015                 Return Me.columnTotalPaid
3016             End Get
3017         End Property
3018         
3019         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3020          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3021         Public ReadOnly Property PaymentModeColumn() As Global.System.Data.DataColumn
3022             Get
3023                 Return Me.columnPaymentMode
3024             End Get
3025         End Property
3026         
3027         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3028          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3029          Global.System.ComponentModel.Browsable(false)> _
3030         Public ReadOnly Property Count() As Integer
3031             Get
3032                 Return Me.Rows.Count
3033             End Get
3034         End Property
3035         
3036         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3037          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3038         Public Default ReadOnly Property Item(ByVal index As Integer) As Invoice_PaymentRow
3039             Get
3040                 Return CType(Me.Rows(index),Invoice_PaymentRow)
3041             End Get
3042         End Property
3043         
3044         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3045         Public Event Invoice_PaymentRowChanging As Invoice_PaymentRowChangeEventHandler
3046         
3047         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3048         Public Event Invoice_PaymentRowChanged As Invoice_PaymentRowChangeEventHandler
3049         
3050         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3051         Public Event Invoice_PaymentRowDeleting As Invoice_PaymentRowChangeEventHandler
3052         
3053         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3054         Public Event Invoice_PaymentRowDeleted As Invoice_PaymentRowChangeEventHandler
3055         
3056         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3057          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3058         Public Overloads Sub AddInvoice_PaymentRow(ByVal row As Invoice_PaymentRow)
3059             Me.Rows.Add(row)
3060         End Sub
3061         
3062         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3063          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3064         Public Overloads Function AddInvoice_PaymentRow(ByVal parentInvoiceInfoRowByFK_Invoice_Payment_InvoiceInfo As InvoiceInfoRow, ByVal PaymentDate As Date, ByVal TotalPaid As Decimal, ByVal PaymentMode As String) As Invoice_PaymentRow
3065             Dim rowInvoice_PaymentRow As Invoice_PaymentRow = CType(Me.NewRow,Invoice_PaymentRow)
3066             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, PaymentDate, TotalPaid, PaymentMode}
3067             If (Not (parentInvoiceInfoRowByFK_Invoice_Payment_InvoiceInfo) Is Nothing) Then
3068                 columnValuesArray(1) = parentInvoiceInfoRowByFK_Invoice_Payment_InvoiceInfo(0)
3069             End If
3070             rowInvoice_PaymentRow.ItemArray = columnValuesArray
3071             Me.Rows.Add(rowInvoice_PaymentRow)
3072             Return rowInvoice_PaymentRow
3073         End Function
3074         
3075         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3076          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3077         Public Function FindByIP_ID(ByVal IP_ID As Integer) As Invoice_PaymentRow
3078             Return CType(Me.Rows.Find(New Object() {IP_ID}),Invoice_PaymentRow)
3079         End Function
3080         
3081         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3082          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3083         Public Overrides Function Clone() As Global.System.Data.DataTable
3084             Dim cln As Invoice_PaymentDataTable = CType(MyBase.Clone,Invoice_PaymentDataTable)
3085             cln.InitVars
3086             Return cln
3087         End Function
3088         
3089         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3090          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3091         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3092             Return New Invoice_PaymentDataTable()
3093         End Function
3094         
3095         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3096          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3097         Friend Sub InitVars()
3098             Me.columnIP_ID = MyBase.Columns("IP_ID")
3099             Me.columnInvoiceID = MyBase.Columns("InvoiceID")
3100             Me.columnPaymentDate = MyBase.Columns("PaymentDate")
3101             Me.columnTotalPaid = MyBase.Columns("TotalPaid")
3102             Me.columnPaymentMode = MyBase.Columns("PaymentMode")
3103         End Sub
3104         
3105         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3106          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3107         Private Sub InitClass()
3108             Me.columnIP_ID = New Global.System.Data.DataColumn("IP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3109             MyBase.Columns.Add(Me.columnIP_ID)
3110             Me.columnInvoiceID = New Global.System.Data.DataColumn("InvoiceID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3111             MyBase.Columns.Add(Me.columnInvoiceID)
3112             Me.columnPaymentDate = New Global.System.Data.DataColumn("PaymentDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
3113             MyBase.Columns.Add(Me.columnPaymentDate)
3114             Me.columnTotalPaid = New Global.System.Data.DataColumn("TotalPaid", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3115             MyBase.Columns.Add(Me.columnTotalPaid)
3116             Me.columnPaymentMode = New Global.System.Data.DataColumn("PaymentMode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3117             MyBase.Columns.Add(Me.columnPaymentMode)
3118             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnIP_ID}, true))
3119             Me.columnIP_ID.AutoIncrement = true
3120             Me.columnIP_ID.AutoIncrementSeed = -1
3121             Me.columnIP_ID.AutoIncrementStep = -1
3122             Me.columnIP_ID.AllowDBNull = false
3123             Me.columnIP_ID.ReadOnly = true
3124             Me.columnIP_ID.Unique = true
3125             Me.columnInvoiceID.AllowDBNull = false
3126             Me.columnPaymentDate.AllowDBNull = false
3127             Me.columnTotalPaid.AllowDBNull = false
3128             Me.columnPaymentMode.AllowDBNull = false
3129             Me.columnPaymentMode.MaxLength = 150
3130         End Sub
3131         
3132         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3133          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3134         Public Function NewInvoice_PaymentRow() As Invoice_PaymentRow
3135             Return CType(Me.NewRow,Invoice_PaymentRow)
3136         End Function
3137         
3138         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3139          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3140         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3141             Return New Invoice_PaymentRow(builder)
3142         End Function
3143         
3144         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3145          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3146         Protected Overrides Function GetRowType() As Global.System.Type
3147             Return GetType(Invoice_PaymentRow)
3148         End Function
3149         
3150         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3151          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3152         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3153             MyBase.OnRowChanged(e)
3154             If (Not (Me.Invoice_PaymentRowChangedEvent) Is Nothing) Then
3155                 RaiseEvent Invoice_PaymentRowChanged(Me, New Invoice_PaymentRowChangeEvent(CType(e.Row,Invoice_PaymentRow), e.Action))
3156             End If
3157         End Sub
3158         
3159         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3160          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3161         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3162             MyBase.OnRowChanging(e)
3163             If (Not (Me.Invoice_PaymentRowChangingEvent) Is Nothing) Then
3164                 RaiseEvent Invoice_PaymentRowChanging(Me, New Invoice_PaymentRowChangeEvent(CType(e.Row,Invoice_PaymentRow), e.Action))
3165             End If
3166         End Sub
3167         
3168         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3169          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3170         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3171             MyBase.OnRowDeleted(e)
3172             If (Not (Me.Invoice_PaymentRowDeletedEvent) Is Nothing) Then
3173                 RaiseEvent Invoice_PaymentRowDeleted(Me, New Invoice_PaymentRowChangeEvent(CType(e.Row,Invoice_PaymentRow), e.Action))
3174             End If
3175         End Sub
3176         
3177         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3178          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3179         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3180             MyBase.OnRowDeleting(e)
3181             If (Not (Me.Invoice_PaymentRowDeletingEvent) Is Nothing) Then
3182                 RaiseEvent Invoice_PaymentRowDeleting(Me, New Invoice_PaymentRowChangeEvent(CType(e.Row,Invoice_PaymentRow), e.Action))
3183             End If
3184         End Sub
3185         
3186         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3187          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3188         Public Sub RemoveInvoice_PaymentRow(ByVal row As Invoice_PaymentRow)
3189             Me.Rows.Remove(row)
3190         End Sub
3191         
3192         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3193          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3194         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3195             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
3196             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
3197             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
3198             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3199             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3200             any1.MinOccurs = New Decimal(0)
3201             any1.MaxOccurs = Decimal.MaxValue
3202             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3203             sequence.Items.Add(any1)
3204             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3205             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3206             any2.MinOccurs = New Decimal(1)
3207             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3208             sequence.Items.Add(any2)
3209             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3210             attribute1.Name = "namespace"
3211             attribute1.FixedValue = ds.Namespace
3212             type.Attributes.Add(attribute1)
3213             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3214             attribute2.Name = "tableTypeName"
3215             attribute2.FixedValue = "Invoice_PaymentDataTable"
3216             type.Attributes.Add(attribute2)
3217             type.Particle = sequence
3218             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3219             If xs.Contains(dsSchema.TargetNamespace) Then
3220                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3221                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3222                 Try
3223                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3224                     dsSchema.Write(s1)
3225                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3226                     Do While schemas.MoveNext
3227                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3228                         s2.SetLength(0)
3229                         schema.Write(s2)
3230                         If (s1.Length = s2.Length) Then
3231                             s1.Position = 0
3232                             s2.Position = 0
3233                             
3234                             Do While ((s1.Position <> s1.Length) _
3235                                         AndAlso (s1.ReadByte = s2.ReadByte))
3236                                 
3237                                 
3238                             Loop
3239                             If (s1.Position = s1.Length) Then
3240                                 Return type
3241                             End If
3242                         End If
3243                         
3244                     Loop
3245                 Finally
3246                     If (Not (s1) Is Nothing) Then
3247                         s1.Close
3248                     End If
3249                     If (Not (s2) Is Nothing) Then
3250                         s2.Close
3251                     End If
3252                 End Try
3253             End If
3254             xs.Add(dsSchema)
3255             Return type
3256         End Function
3257     End Class
3258     
3259     '''<summary>
3260     '''Represents the strongly named DataTable class.
3261     '''</summary>
3262     <Global.System.Serializable(), _
3263      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
3264     Partial Public Class Invoice_ProductDataTable
3265         Inherits Global.System.Data.TypedTableBase(Of Invoice_ProductRow)
3266         
3267         Private columnIPo_ID As Global.System.Data.DataColumn
3268         
3269         Private columnInvoiceID As Global.System.Data.DataColumn
3270         
3271         Private columnProductID As Global.System.Data.DataColumn
3272         
3273         Private columnCostPrice As Global.System.Data.DataColumn
3274         
3275         Private columnSellingPrice As Global.System.Data.DataColumn
3276         
3277         Private columnMargin As Global.System.Data.DataColumn
3278         
3279         Private columnQty As Global.System.Data.DataColumn
3280         
3281         Private columnAmount As Global.System.Data.DataColumn
3282         
3283         Private columnDiscountPer As Global.System.Data.DataColumn
3284         
3285         Private columnDiscount As Global.System.Data.DataColumn
3286         
3287         Private columnVATPer As Global.System.Data.DataColumn
3288         
3289         Private columnVAT As Global.System.Data.DataColumn
3290         
3291         Private columnTotalAmount As Global.System.Data.DataColumn
3292         
3293         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3294          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3295         Public Sub New()
3296             MyBase.New
3297             Me.TableName = "Invoice_Product"
3298             Me.BeginInit
3299             Me.InitClass
3300             Me.EndInit
3301         End Sub
3302         
3303         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3304          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3305         Friend Sub New(ByVal table As Global.System.Data.DataTable)
3306             MyBase.New
3307             Me.TableName = table.TableName
3308             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
3309                 Me.CaseSensitive = table.CaseSensitive
3310             End If
3311             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
3312                 Me.Locale = table.Locale
3313             End If
3314             If (table.Namespace <> table.DataSet.Namespace) Then
3315                 Me.Namespace = table.Namespace
3316             End If
3317             Me.Prefix = table.Prefix
3318             Me.MinimumCapacity = table.MinimumCapacity
3319         End Sub
3320         
3321         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3322          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3323         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
3324             MyBase.New(info, context)
3325             Me.InitVars
3326         End Sub
3327         
3328         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3329          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3330         Public ReadOnly Property IPo_IDColumn() As Global.System.Data.DataColumn
3331             Get
3332                 Return Me.columnIPo_ID
3333             End Get
3334         End Property
3335         
3336         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3337          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3338         Public ReadOnly Property InvoiceIDColumn() As Global.System.Data.DataColumn
3339             Get
3340                 Return Me.columnInvoiceID
3341             End Get
3342         End Property
3343         
3344         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3345          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3346         Public ReadOnly Property ProductIDColumn() As Global.System.Data.DataColumn
3347             Get
3348                 Return Me.columnProductID
3349             End Get
3350         End Property
3351         
3352         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3353          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3354         Public ReadOnly Property CostPriceColumn() As Global.System.Data.DataColumn
3355             Get
3356                 Return Me.columnCostPrice
3357             End Get
3358         End Property
3359         
3360         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3361          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3362         Public ReadOnly Property SellingPriceColumn() As Global.System.Data.DataColumn
3363             Get
3364                 Return Me.columnSellingPrice
3365             End Get
3366         End Property
3367         
3368         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3369          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3370         Public ReadOnly Property MarginColumn() As Global.System.Data.DataColumn
3371             Get
3372                 Return Me.columnMargin
3373             End Get
3374         End Property
3375         
3376         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3377          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3378         Public ReadOnly Property QtyColumn() As Global.System.Data.DataColumn
3379             Get
3380                 Return Me.columnQty
3381             End Get
3382         End Property
3383         
3384         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3385          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3386         Public ReadOnly Property AmountColumn() As Global.System.Data.DataColumn
3387             Get
3388                 Return Me.columnAmount
3389             End Get
3390         End Property
3391         
3392         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3393          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3394         Public ReadOnly Property DiscountPerColumn() As Global.System.Data.DataColumn
3395             Get
3396                 Return Me.columnDiscountPer
3397             End Get
3398         End Property
3399         
3400         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3401          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3402         Public ReadOnly Property DiscountColumn() As Global.System.Data.DataColumn
3403             Get
3404                 Return Me.columnDiscount
3405             End Get
3406         End Property
3407         
3408         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3409          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3410         Public ReadOnly Property VATPerColumn() As Global.System.Data.DataColumn
3411             Get
3412                 Return Me.columnVATPer
3413             End Get
3414         End Property
3415         
3416         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3417          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3418         Public ReadOnly Property VATColumn() As Global.System.Data.DataColumn
3419             Get
3420                 Return Me.columnVAT
3421             End Get
3422         End Property
3423         
3424         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3425          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3426         Public ReadOnly Property TotalAmountColumn() As Global.System.Data.DataColumn
3427             Get
3428                 Return Me.columnTotalAmount
3429             End Get
3430         End Property
3431         
3432         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3433          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3434          Global.System.ComponentModel.Browsable(false)> _
3435         Public ReadOnly Property Count() As Integer
3436             Get
3437                 Return Me.Rows.Count
3438             End Get
3439         End Property
3440         
3441         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3442          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3443         Public Default ReadOnly Property Item(ByVal index As Integer) As Invoice_ProductRow
3444             Get
3445                 Return CType(Me.Rows(index),Invoice_ProductRow)
3446             End Get
3447         End Property
3448         
3449         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3450         Public Event Invoice_ProductRowChanging As Invoice_ProductRowChangeEventHandler
3451         
3452         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3453         Public Event Invoice_ProductRowChanged As Invoice_ProductRowChangeEventHandler
3454         
3455         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3456         Public Event Invoice_ProductRowDeleting As Invoice_ProductRowChangeEventHandler
3457         
3458         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3459         Public Event Invoice_ProductRowDeleted As Invoice_ProductRowChangeEventHandler
3460         
3461         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3462          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3463         Public Overloads Sub AddInvoice_ProductRow(ByVal row As Invoice_ProductRow)
3464             Me.Rows.Add(row)
3465         End Sub
3466         
3467         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3468          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3469         Public Overloads Function AddInvoice_ProductRow(ByVal parentInvoiceInfoRowByFK_Invoice_Product_InvoiceInfo As InvoiceInfoRow, ByVal parentProductRowByFK_Invoice_Product_Product As ProductRow, ByVal CostPrice As Decimal, ByVal SellingPrice As Decimal, ByVal Margin As Decimal, ByVal Qty As Integer, ByVal Amount As Decimal, ByVal DiscountPer As Decimal, ByVal Discount As Decimal, ByVal VATPer As Decimal, ByVal VAT As Decimal, ByVal TotalAmount As Decimal) As Invoice_ProductRow
3470             Dim rowInvoice_ProductRow As Invoice_ProductRow = CType(Me.NewRow,Invoice_ProductRow)
3471             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, CostPrice, SellingPrice, Margin, Qty, Amount, DiscountPer, Discount, VATPer, VAT, TotalAmount}
3472             If (Not (parentInvoiceInfoRowByFK_Invoice_Product_InvoiceInfo) Is Nothing) Then
3473                 columnValuesArray(1) = parentInvoiceInfoRowByFK_Invoice_Product_InvoiceInfo(0)
3474             End If
3475             If (Not (parentProductRowByFK_Invoice_Product_Product) Is Nothing) Then
3476                 columnValuesArray(2) = parentProductRowByFK_Invoice_Product_Product(0)
3477             End If
3478             rowInvoice_ProductRow.ItemArray = columnValuesArray
3479             Me.Rows.Add(rowInvoice_ProductRow)
3480             Return rowInvoice_ProductRow
3481         End Function
3482         
3483         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3484          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3485         Public Function FindByIPo_ID(ByVal IPo_ID As Integer) As Invoice_ProductRow
3486             Return CType(Me.Rows.Find(New Object() {IPo_ID}),Invoice_ProductRow)
3487         End Function
3488         
3489         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3490          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3491         Public Overrides Function Clone() As Global.System.Data.DataTable
3492             Dim cln As Invoice_ProductDataTable = CType(MyBase.Clone,Invoice_ProductDataTable)
3493             cln.InitVars
3494             Return cln
3495         End Function
3496         
3497         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3498          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3499         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3500             Return New Invoice_ProductDataTable()
3501         End Function
3502         
3503         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3504          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3505         Friend Sub InitVars()
3506             Me.columnIPo_ID = MyBase.Columns("IPo_ID")
3507             Me.columnInvoiceID = MyBase.Columns("InvoiceID")
3508             Me.columnProductID = MyBase.Columns("ProductID")
3509             Me.columnCostPrice = MyBase.Columns("CostPrice")
3510             Me.columnSellingPrice = MyBase.Columns("SellingPrice")
3511             Me.columnMargin = MyBase.Columns("Margin")
3512             Me.columnQty = MyBase.Columns("Qty")
3513             Me.columnAmount = MyBase.Columns("Amount")
3514             Me.columnDiscountPer = MyBase.Columns("DiscountPer")
3515             Me.columnDiscount = MyBase.Columns("Discount")
3516             Me.columnVATPer = MyBase.Columns("VATPer")
3517             Me.columnVAT = MyBase.Columns("VAT")
3518             Me.columnTotalAmount = MyBase.Columns("TotalAmount")
3519         End Sub
3520         
3521         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3522          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3523         Private Sub InitClass()
3524             Me.columnIPo_ID = New Global.System.Data.DataColumn("IPo_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3525             MyBase.Columns.Add(Me.columnIPo_ID)
3526             Me.columnInvoiceID = New Global.System.Data.DataColumn("InvoiceID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3527             MyBase.Columns.Add(Me.columnInvoiceID)
3528             Me.columnProductID = New Global.System.Data.DataColumn("ProductID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3529             MyBase.Columns.Add(Me.columnProductID)
3530             Me.columnCostPrice = New Global.System.Data.DataColumn("CostPrice", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3531             MyBase.Columns.Add(Me.columnCostPrice)
3532             Me.columnSellingPrice = New Global.System.Data.DataColumn("SellingPrice", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3533             MyBase.Columns.Add(Me.columnSellingPrice)
3534             Me.columnMargin = New Global.System.Data.DataColumn("Margin", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3535             MyBase.Columns.Add(Me.columnMargin)
3536             Me.columnQty = New Global.System.Data.DataColumn("Qty", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3537             MyBase.Columns.Add(Me.columnQty)
3538             Me.columnAmount = New Global.System.Data.DataColumn("Amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3539             MyBase.Columns.Add(Me.columnAmount)
3540             Me.columnDiscountPer = New Global.System.Data.DataColumn("DiscountPer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3541             MyBase.Columns.Add(Me.columnDiscountPer)
3542             Me.columnDiscount = New Global.System.Data.DataColumn("Discount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3543             MyBase.Columns.Add(Me.columnDiscount)
3544             Me.columnVATPer = New Global.System.Data.DataColumn("VATPer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3545             MyBase.Columns.Add(Me.columnVATPer)
3546             Me.columnVAT = New Global.System.Data.DataColumn("VAT", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3547             MyBase.Columns.Add(Me.columnVAT)
3548             Me.columnTotalAmount = New Global.System.Data.DataColumn("TotalAmount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3549             MyBase.Columns.Add(Me.columnTotalAmount)
3550             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnIPo_ID}, true))
3551             Me.columnIPo_ID.AutoIncrement = true
3552             Me.columnIPo_ID.AutoIncrementSeed = -1
3553             Me.columnIPo_ID.AutoIncrementStep = -1
3554             Me.columnIPo_ID.AllowDBNull = false
3555             Me.columnIPo_ID.ReadOnly = true
3556             Me.columnIPo_ID.Unique = true
3557             Me.columnInvoiceID.AllowDBNull = false
3558             Me.columnProductID.AllowDBNull = false
3559             Me.columnCostPrice.AllowDBNull = false
3560             Me.columnSellingPrice.AllowDBNull = false
3561             Me.columnMargin.AllowDBNull = false
3562             Me.columnQty.AllowDBNull = false
3563             Me.columnAmount.AllowDBNull = false
3564             Me.columnDiscountPer.AllowDBNull = false
3565             Me.columnDiscount.AllowDBNull = false
3566             Me.columnVATPer.AllowDBNull = false
3567             Me.columnVAT.AllowDBNull = false
3568             Me.columnTotalAmount.AllowDBNull = false
3569         End Sub
3570         
3571         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3572          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3573         Public Function NewInvoice_ProductRow() As Invoice_ProductRow
3574             Return CType(Me.NewRow,Invoice_ProductRow)
3575         End Function
3576         
3577         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3578          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3579         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3580             Return New Invoice_ProductRow(builder)
3581         End Function
3582         
3583         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3584          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3585         Protected Overrides Function GetRowType() As Global.System.Type
3586             Return GetType(Invoice_ProductRow)
3587         End Function
3588         
3589         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3590          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3591         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3592             MyBase.OnRowChanged(e)
3593             If (Not (Me.Invoice_ProductRowChangedEvent) Is Nothing) Then
3594                 RaiseEvent Invoice_ProductRowChanged(Me, New Invoice_ProductRowChangeEvent(CType(e.Row,Invoice_ProductRow), e.Action))
3595             End If
3596         End Sub
3597         
3598         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3599          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3600         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3601             MyBase.OnRowChanging(e)
3602             If (Not (Me.Invoice_ProductRowChangingEvent) Is Nothing) Then
3603                 RaiseEvent Invoice_ProductRowChanging(Me, New Invoice_ProductRowChangeEvent(CType(e.Row,Invoice_ProductRow), e.Action))
3604             End If
3605         End Sub
3606         
3607         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3608          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3609         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3610             MyBase.OnRowDeleted(e)
3611             If (Not (Me.Invoice_ProductRowDeletedEvent) Is Nothing) Then
3612                 RaiseEvent Invoice_ProductRowDeleted(Me, New Invoice_ProductRowChangeEvent(CType(e.Row,Invoice_ProductRow), e.Action))
3613             End If
3614         End Sub
3615         
3616         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3617          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3618         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3619             MyBase.OnRowDeleting(e)
3620             If (Not (Me.Invoice_ProductRowDeletingEvent) Is Nothing) Then
3621                 RaiseEvent Invoice_ProductRowDeleting(Me, New Invoice_ProductRowChangeEvent(CType(e.Row,Invoice_ProductRow), e.Action))
3622             End If
3623         End Sub
3624         
3625         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3626          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3627         Public Sub RemoveInvoice_ProductRow(ByVal row As Invoice_ProductRow)
3628             Me.Rows.Remove(row)
3629         End Sub
3630         
3631         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3632          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3633         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3634             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
3635             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
3636             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
3637             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3638             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3639             any1.MinOccurs = New Decimal(0)
3640             any1.MaxOccurs = Decimal.MaxValue
3641             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3642             sequence.Items.Add(any1)
3643             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3644             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3645             any2.MinOccurs = New Decimal(1)
3646             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3647             sequence.Items.Add(any2)
3648             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3649             attribute1.Name = "namespace"
3650             attribute1.FixedValue = ds.Namespace
3651             type.Attributes.Add(attribute1)
3652             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3653             attribute2.Name = "tableTypeName"
3654             attribute2.FixedValue = "Invoice_ProductDataTable"
3655             type.Attributes.Add(attribute2)
3656             type.Particle = sequence
3657             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3658             If xs.Contains(dsSchema.TargetNamespace) Then
3659                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3660                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3661                 Try
3662                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3663                     dsSchema.Write(s1)
3664                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3665                     Do While schemas.MoveNext
3666                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3667                         s2.SetLength(0)
3668                         schema.Write(s2)
3669                         If (s1.Length = s2.Length) Then
3670                             s1.Position = 0
3671                             s2.Position = 0
3672                             
3673                             Do While ((s1.Position <> s1.Length) _
3674                                         AndAlso (s1.ReadByte = s2.ReadByte))
3675                                 
3676                                 
3677                             Loop
3678                             If (s1.Position = s1.Length) Then
3679                                 Return type
3680                             End If
3681                         End If
3682                         
3683                     Loop
3684                 Finally
3685                     If (Not (s1) Is Nothing) Then
3686                         s1.Close
3687                     End If
3688                     If (Not (s2) Is Nothing) Then
3689                         s2.Close
3690                     End If
3691                 End Try
3692             End If
3693             xs.Add(dsSchema)
3694             Return type
3695         End Function
3696     End Class
3697     
3698     '''<summary>
3699     '''Represents the strongly named DataTable class.
3700     '''</summary>
3701     <Global.System.Serializable(), _
3702      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
3703     Partial Public Class Invoice1_PaymentDataTable
3704         Inherits Global.System.Data.TypedTableBase(Of Invoice1_PaymentRow)
3705         
3706         Private columnIP_ID As Global.System.Data.DataColumn
3707         
3708         Private columnInvoiceID As Global.System.Data.DataColumn
3709         
3710         Private columnPaymentDate As Global.System.Data.DataColumn
3711         
3712         Private columnTotalPaid As Global.System.Data.DataColumn
3713         
3714         Private columnPaymentMode As Global.System.Data.DataColumn
3715         
3716         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3717          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3718         Public Sub New()
3719             MyBase.New
3720             Me.TableName = "Invoice1_Payment"
3721             Me.BeginInit
3722             Me.InitClass
3723             Me.EndInit
3724         End Sub
3725         
3726         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3727          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3728         Friend Sub New(ByVal table As Global.System.Data.DataTable)
3729             MyBase.New
3730             Me.TableName = table.TableName
3731             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
3732                 Me.CaseSensitive = table.CaseSensitive
3733             End If
3734             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
3735                 Me.Locale = table.Locale
3736             End If
3737             If (table.Namespace <> table.DataSet.Namespace) Then
3738                 Me.Namespace = table.Namespace
3739             End If
3740             Me.Prefix = table.Prefix
3741             Me.MinimumCapacity = table.MinimumCapacity
3742         End Sub
3743         
3744         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3745          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3746         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
3747             MyBase.New(info, context)
3748             Me.InitVars
3749         End Sub
3750         
3751         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3752          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3753         Public ReadOnly Property IP_IDColumn() As Global.System.Data.DataColumn
3754             Get
3755                 Return Me.columnIP_ID
3756             End Get
3757         End Property
3758         
3759         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3760          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3761         Public ReadOnly Property InvoiceIDColumn() As Global.System.Data.DataColumn
3762             Get
3763                 Return Me.columnInvoiceID
3764             End Get
3765         End Property
3766         
3767         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3768          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3769         Public ReadOnly Property PaymentDateColumn() As Global.System.Data.DataColumn
3770             Get
3771                 Return Me.columnPaymentDate
3772             End Get
3773         End Property
3774         
3775         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3776          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3777         Public ReadOnly Property TotalPaidColumn() As Global.System.Data.DataColumn
3778             Get
3779                 Return Me.columnTotalPaid
3780             End Get
3781         End Property
3782         
3783         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3784          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3785         Public ReadOnly Property PaymentModeColumn() As Global.System.Data.DataColumn
3786             Get
3787                 Return Me.columnPaymentMode
3788             End Get
3789         End Property
3790         
3791         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3792          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3793          Global.System.ComponentModel.Browsable(false)> _
3794         Public ReadOnly Property Count() As Integer
3795             Get
3796                 Return Me.Rows.Count
3797             End Get
3798         End Property
3799         
3800         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3801          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3802         Public Default ReadOnly Property Item(ByVal index As Integer) As Invoice1_PaymentRow
3803             Get
3804                 Return CType(Me.Rows(index),Invoice1_PaymentRow)
3805             End Get
3806         End Property
3807         
3808         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3809         Public Event Invoice1_PaymentRowChanging As Invoice1_PaymentRowChangeEventHandler
3810         
3811         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3812         Public Event Invoice1_PaymentRowChanged As Invoice1_PaymentRowChangeEventHandler
3813         
3814         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3815         Public Event Invoice1_PaymentRowDeleting As Invoice1_PaymentRowChangeEventHandler
3816         
3817         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3818         Public Event Invoice1_PaymentRowDeleted As Invoice1_PaymentRowChangeEventHandler
3819         
3820         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3821          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3822         Public Overloads Sub AddInvoice1_PaymentRow(ByVal row As Invoice1_PaymentRow)
3823             Me.Rows.Add(row)
3824         End Sub
3825         
3826         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3827          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3828         Public Overloads Function AddInvoice1_PaymentRow(ByVal parentInvoiceInfo1RowByFK_Invoice1_Payment_InvoiceInfo1 As InvoiceInfo1Row, ByVal PaymentDate As Date, ByVal TotalPaid As Decimal, ByVal PaymentMode As String) As Invoice1_PaymentRow
3829             Dim rowInvoice1_PaymentRow As Invoice1_PaymentRow = CType(Me.NewRow,Invoice1_PaymentRow)
3830             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, PaymentDate, TotalPaid, PaymentMode}
3831             If (Not (parentInvoiceInfo1RowByFK_Invoice1_Payment_InvoiceInfo1) Is Nothing) Then
3832                 columnValuesArray(1) = parentInvoiceInfo1RowByFK_Invoice1_Payment_InvoiceInfo1(0)
3833             End If
3834             rowInvoice1_PaymentRow.ItemArray = columnValuesArray
3835             Me.Rows.Add(rowInvoice1_PaymentRow)
3836             Return rowInvoice1_PaymentRow
3837         End Function
3838         
3839         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3840          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3841         Public Function FindByIP_ID(ByVal IP_ID As Integer) As Invoice1_PaymentRow
3842             Return CType(Me.Rows.Find(New Object() {IP_ID}),Invoice1_PaymentRow)
3843         End Function
3844         
3845         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3846          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3847         Public Overrides Function Clone() As Global.System.Data.DataTable
3848             Dim cln As Invoice1_PaymentDataTable = CType(MyBase.Clone,Invoice1_PaymentDataTable)
3849             cln.InitVars
3850             Return cln
3851         End Function
3852         
3853         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3854          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3855         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3856             Return New Invoice1_PaymentDataTable()
3857         End Function
3858         
3859         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3860          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3861         Friend Sub InitVars()
3862             Me.columnIP_ID = MyBase.Columns("IP_ID")
3863             Me.columnInvoiceID = MyBase.Columns("InvoiceID")
3864             Me.columnPaymentDate = MyBase.Columns("PaymentDate")
3865             Me.columnTotalPaid = MyBase.Columns("TotalPaid")
3866             Me.columnPaymentMode = MyBase.Columns("PaymentMode")
3867         End Sub
3868         
3869         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3870          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3871         Private Sub InitClass()
3872             Me.columnIP_ID = New Global.System.Data.DataColumn("IP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3873             MyBase.Columns.Add(Me.columnIP_ID)
3874             Me.columnInvoiceID = New Global.System.Data.DataColumn("InvoiceID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3875             MyBase.Columns.Add(Me.columnInvoiceID)
3876             Me.columnPaymentDate = New Global.System.Data.DataColumn("PaymentDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
3877             MyBase.Columns.Add(Me.columnPaymentDate)
3878             Me.columnTotalPaid = New Global.System.Data.DataColumn("TotalPaid", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3879             MyBase.Columns.Add(Me.columnTotalPaid)
3880             Me.columnPaymentMode = New Global.System.Data.DataColumn("PaymentMode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3881             MyBase.Columns.Add(Me.columnPaymentMode)
3882             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnIP_ID}, true))
3883             Me.columnIP_ID.AutoIncrement = true
3884             Me.columnIP_ID.AutoIncrementSeed = -1
3885             Me.columnIP_ID.AutoIncrementStep = -1
3886             Me.columnIP_ID.AllowDBNull = false
3887             Me.columnIP_ID.ReadOnly = true
3888             Me.columnIP_ID.Unique = true
3889             Me.columnInvoiceID.AllowDBNull = false
3890             Me.columnPaymentDate.AllowDBNull = false
3891             Me.columnTotalPaid.AllowDBNull = false
3892             Me.columnPaymentMode.AllowDBNull = false
3893             Me.columnPaymentMode.MaxLength = 150
3894         End Sub
3895         
3896         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3897          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3898         Public Function NewInvoice1_PaymentRow() As Invoice1_PaymentRow
3899             Return CType(Me.NewRow,Invoice1_PaymentRow)
3900         End Function
3901         
3902         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3903          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3904         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3905             Return New Invoice1_PaymentRow(builder)
3906         End Function
3907         
3908         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3909          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3910         Protected Overrides Function GetRowType() As Global.System.Type
3911             Return GetType(Invoice1_PaymentRow)
3912         End Function
3913         
3914         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3915          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3916         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3917             MyBase.OnRowChanged(e)
3918             If (Not (Me.Invoice1_PaymentRowChangedEvent) Is Nothing) Then
3919                 RaiseEvent Invoice1_PaymentRowChanged(Me, New Invoice1_PaymentRowChangeEvent(CType(e.Row,Invoice1_PaymentRow), e.Action))
3920             End If
3921         End Sub
3922         
3923         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3924          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3925         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3926             MyBase.OnRowChanging(e)
3927             If (Not (Me.Invoice1_PaymentRowChangingEvent) Is Nothing) Then
3928                 RaiseEvent Invoice1_PaymentRowChanging(Me, New Invoice1_PaymentRowChangeEvent(CType(e.Row,Invoice1_PaymentRow), e.Action))
3929             End If
3930         End Sub
3931         
3932         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3933          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3934         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3935             MyBase.OnRowDeleted(e)
3936             If (Not (Me.Invoice1_PaymentRowDeletedEvent) Is Nothing) Then
3937                 RaiseEvent Invoice1_PaymentRowDeleted(Me, New Invoice1_PaymentRowChangeEvent(CType(e.Row,Invoice1_PaymentRow), e.Action))
3938             End If
3939         End Sub
3940         
3941         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3942          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3943         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3944             MyBase.OnRowDeleting(e)
3945             If (Not (Me.Invoice1_PaymentRowDeletingEvent) Is Nothing) Then
3946                 RaiseEvent Invoice1_PaymentRowDeleting(Me, New Invoice1_PaymentRowChangeEvent(CType(e.Row,Invoice1_PaymentRow), e.Action))
3947             End If
3948         End Sub
3949         
3950         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3951          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3952         Public Sub RemoveInvoice1_PaymentRow(ByVal row As Invoice1_PaymentRow)
3953             Me.Rows.Remove(row)
3954         End Sub
3955         
3956         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3957          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3958         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3959             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
3960             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
3961             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
3962             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3963             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3964             any1.MinOccurs = New Decimal(0)
3965             any1.MaxOccurs = Decimal.MaxValue
3966             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3967             sequence.Items.Add(any1)
3968             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3969             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3970             any2.MinOccurs = New Decimal(1)
3971             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3972             sequence.Items.Add(any2)
3973             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3974             attribute1.Name = "namespace"
3975             attribute1.FixedValue = ds.Namespace
3976             type.Attributes.Add(attribute1)
3977             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3978             attribute2.Name = "tableTypeName"
3979             attribute2.FixedValue = "Invoice1_PaymentDataTable"
3980             type.Attributes.Add(attribute2)
3981             type.Particle = sequence
3982             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3983             If xs.Contains(dsSchema.TargetNamespace) Then
3984                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3985                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3986                 Try
3987                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3988                     dsSchema.Write(s1)
3989                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3990                     Do While schemas.MoveNext
3991                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3992                         s2.SetLength(0)
3993                         schema.Write(s2)
3994                         If (s1.Length = s2.Length) Then
3995                             s1.Position = 0
3996                             s2.Position = 0
3997                             
3998                             Do While ((s1.Position <> s1.Length) _
3999                                         AndAlso (s1.ReadByte = s2.ReadByte))
4000                                 
4001                                 
4002                             Loop
4003                             If (s1.Position = s1.Length) Then
4004                                 Return type
4005                             End If
4006                         End If
4007                         
4008                     Loop
4009                 Finally
4010                     If (Not (s1) Is Nothing) Then
4011                         s1.Close
4012                     End If
4013                     If (Not (s2) Is Nothing) Then
4014                         s2.Close
4015                     End If
4016                 End Try
4017             End If
4018             xs.Add(dsSchema)
4019             Return type
4020         End Function
4021     End Class
4022     
4023     '''<summary>
4024     '''Represents the strongly named DataTable class.
4025     '''</summary>
4026     <Global.System.Serializable(), _
4027      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
4028     Partial Public Class Invoice1_ProductDataTable
4029         Inherits Global.System.Data.TypedTableBase(Of Invoice1_ProductRow)
4030         
4031         Private columnIpo_ID As Global.System.Data.DataColumn
4032         
4033         Private columnInvoiceID As Global.System.Data.DataColumn
4034         
4035         Private columnProductID As Global.System.Data.DataColumn
4036         
4037         Private columnCostPrice As Global.System.Data.DataColumn
4038         
4039         Private columnSellingPrice As Global.System.Data.DataColumn
4040         
4041         Private columnMargin As Global.System.Data.DataColumn
4042         
4043         Private columnQty As Global.System.Data.DataColumn
4044         
4045         Private columnAmount As Global.System.Data.DataColumn
4046         
4047         Private columnDiscountPer As Global.System.Data.DataColumn
4048         
4049         Private columnDiscount As Global.System.Data.DataColumn
4050         
4051         Private columnVATPer As Global.System.Data.DataColumn
4052         
4053         Private columnVAT As Global.System.Data.DataColumn
4054         
4055         Private columnTotalAmount As Global.System.Data.DataColumn
4056         
4057         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4058          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4059         Public Sub New()
4060             MyBase.New
4061             Me.TableName = "Invoice1_Product"
4062             Me.BeginInit
4063             Me.InitClass
4064             Me.EndInit
4065         End Sub
4066         
4067         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4068          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4069         Friend Sub New(ByVal table As Global.System.Data.DataTable)
4070             MyBase.New
4071             Me.TableName = table.TableName
4072             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
4073                 Me.CaseSensitive = table.CaseSensitive
4074             End If
4075             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
4076                 Me.Locale = table.Locale
4077             End If
4078             If (table.Namespace <> table.DataSet.Namespace) Then
4079                 Me.Namespace = table.Namespace
4080             End If
4081             Me.Prefix = table.Prefix
4082             Me.MinimumCapacity = table.MinimumCapacity
4083         End Sub
4084         
4085         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4086          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4087         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
4088             MyBase.New(info, context)
4089             Me.InitVars
4090         End Sub
4091         
4092         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4093          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4094         Public ReadOnly Property Ipo_IDColumn() As Global.System.Data.DataColumn
4095             Get
4096                 Return Me.columnIpo_ID
4097             End Get
4098         End Property
4099         
4100         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4101          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4102         Public ReadOnly Property InvoiceIDColumn() As Global.System.Data.DataColumn
4103             Get
4104                 Return Me.columnInvoiceID
4105             End Get
4106         End Property
4107         
4108         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4109          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4110         Public ReadOnly Property ProductIDColumn() As Global.System.Data.DataColumn
4111             Get
4112                 Return Me.columnProductID
4113             End Get
4114         End Property
4115         
4116         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4117          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4118         Public ReadOnly Property CostPriceColumn() As Global.System.Data.DataColumn
4119             Get
4120                 Return Me.columnCostPrice
4121             End Get
4122         End Property
4123         
4124         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4125          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4126         Public ReadOnly Property SellingPriceColumn() As Global.System.Data.DataColumn
4127             Get
4128                 Return Me.columnSellingPrice
4129             End Get
4130         End Property
4131         
4132         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4133          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4134         Public ReadOnly Property MarginColumn() As Global.System.Data.DataColumn
4135             Get
4136                 Return Me.columnMargin
4137             End Get
4138         End Property
4139         
4140         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4141          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4142         Public ReadOnly Property QtyColumn() As Global.System.Data.DataColumn
4143             Get
4144                 Return Me.columnQty
4145             End Get
4146         End Property
4147         
4148         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4149          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4150         Public ReadOnly Property AmountColumn() As Global.System.Data.DataColumn
4151             Get
4152                 Return Me.columnAmount
4153             End Get
4154         End Property
4155         
4156         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4157          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4158         Public ReadOnly Property DiscountPerColumn() As Global.System.Data.DataColumn
4159             Get
4160                 Return Me.columnDiscountPer
4161             End Get
4162         End Property
4163         
4164         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4165          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4166         Public ReadOnly Property DiscountColumn() As Global.System.Data.DataColumn
4167             Get
4168                 Return Me.columnDiscount
4169             End Get
4170         End Property
4171         
4172         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4173          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4174         Public ReadOnly Property VATPerColumn() As Global.System.Data.DataColumn
4175             Get
4176                 Return Me.columnVATPer
4177             End Get
4178         End Property
4179         
4180         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4181          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4182         Public ReadOnly Property VATColumn() As Global.System.Data.DataColumn
4183             Get
4184                 Return Me.columnVAT
4185             End Get
4186         End Property
4187         
4188         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4189          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4190         Public ReadOnly Property TotalAmountColumn() As Global.System.Data.DataColumn
4191             Get
4192                 Return Me.columnTotalAmount
4193             End Get
4194         End Property
4195         
4196         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4197          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4198          Global.System.ComponentModel.Browsable(false)> _
4199         Public ReadOnly Property Count() As Integer
4200             Get
4201                 Return Me.Rows.Count
4202             End Get
4203         End Property
4204         
4205         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4206          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4207         Public Default ReadOnly Property Item(ByVal index As Integer) As Invoice1_ProductRow
4208             Get
4209                 Return CType(Me.Rows(index),Invoice1_ProductRow)
4210             End Get
4211         End Property
4212         
4213         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4214         Public Event Invoice1_ProductRowChanging As Invoice1_ProductRowChangeEventHandler
4215         
4216         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4217         Public Event Invoice1_ProductRowChanged As Invoice1_ProductRowChangeEventHandler
4218         
4219         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4220         Public Event Invoice1_ProductRowDeleting As Invoice1_ProductRowChangeEventHandler
4221         
4222         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4223         Public Event Invoice1_ProductRowDeleted As Invoice1_ProductRowChangeEventHandler
4224         
4225         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4226          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4227         Public Overloads Sub AddInvoice1_ProductRow(ByVal row As Invoice1_ProductRow)
4228             Me.Rows.Add(row)
4229         End Sub
4230         
4231         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4232          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4233         Public Overloads Function AddInvoice1_ProductRow(ByVal parentInvoiceInfo1RowByFK_Invoice1_Product_InvoiceInfo1 As InvoiceInfo1Row, ByVal parentProductRowByFK_Invoice1_Product_Product As ProductRow, ByVal CostPrice As Decimal, ByVal SellingPrice As Decimal, ByVal Margin As Decimal, ByVal Qty As Integer, ByVal Amount As Decimal, ByVal DiscountPer As Decimal, ByVal Discount As Decimal, ByVal VATPer As Decimal, ByVal VAT As Decimal, ByVal TotalAmount As Decimal) As Invoice1_ProductRow
4234             Dim rowInvoice1_ProductRow As Invoice1_ProductRow = CType(Me.NewRow,Invoice1_ProductRow)
4235             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, CostPrice, SellingPrice, Margin, Qty, Amount, DiscountPer, Discount, VATPer, VAT, TotalAmount}
4236             If (Not (parentInvoiceInfo1RowByFK_Invoice1_Product_InvoiceInfo1) Is Nothing) Then
4237                 columnValuesArray(1) = parentInvoiceInfo1RowByFK_Invoice1_Product_InvoiceInfo1(0)
4238             End If
4239             If (Not (parentProductRowByFK_Invoice1_Product_Product) Is Nothing) Then
4240                 columnValuesArray(2) = parentProductRowByFK_Invoice1_Product_Product(0)
4241             End If
4242             rowInvoice1_ProductRow.ItemArray = columnValuesArray
4243             Me.Rows.Add(rowInvoice1_ProductRow)
4244             Return rowInvoice1_ProductRow
4245         End Function
4246         
4247         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4248          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4249         Public Function FindByIpo_ID(ByVal Ipo_ID As Integer) As Invoice1_ProductRow
4250             Return CType(Me.Rows.Find(New Object() {Ipo_ID}),Invoice1_ProductRow)
4251         End Function
4252         
4253         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4254          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4255         Public Overrides Function Clone() As Global.System.Data.DataTable
4256             Dim cln As Invoice1_ProductDataTable = CType(MyBase.Clone,Invoice1_ProductDataTable)
4257             cln.InitVars
4258             Return cln
4259         End Function
4260         
4261         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4262          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4263         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
4264             Return New Invoice1_ProductDataTable()
4265         End Function
4266         
4267         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4268          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4269         Friend Sub InitVars()
4270             Me.columnIpo_ID = MyBase.Columns("Ipo_ID")
4271             Me.columnInvoiceID = MyBase.Columns("InvoiceID")
4272             Me.columnProductID = MyBase.Columns("ProductID")
4273             Me.columnCostPrice = MyBase.Columns("CostPrice")
4274             Me.columnSellingPrice = MyBase.Columns("SellingPrice")
4275             Me.columnMargin = MyBase.Columns("Margin")
4276             Me.columnQty = MyBase.Columns("Qty")
4277             Me.columnAmount = MyBase.Columns("Amount")
4278             Me.columnDiscountPer = MyBase.Columns("DiscountPer")
4279             Me.columnDiscount = MyBase.Columns("Discount")
4280             Me.columnVATPer = MyBase.Columns("VATPer")
4281             Me.columnVAT = MyBase.Columns("VAT")
4282             Me.columnTotalAmount = MyBase.Columns("TotalAmount")
4283         End Sub
4284         
4285         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4286          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4287         Private Sub InitClass()
4288             Me.columnIpo_ID = New Global.System.Data.DataColumn("Ipo_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4289             MyBase.Columns.Add(Me.columnIpo_ID)
4290             Me.columnInvoiceID = New Global.System.Data.DataColumn("InvoiceID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4291             MyBase.Columns.Add(Me.columnInvoiceID)
4292             Me.columnProductID = New Global.System.Data.DataColumn("ProductID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4293             MyBase.Columns.Add(Me.columnProductID)
4294             Me.columnCostPrice = New Global.System.Data.DataColumn("CostPrice", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4295             MyBase.Columns.Add(Me.columnCostPrice)
4296             Me.columnSellingPrice = New Global.System.Data.DataColumn("SellingPrice", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4297             MyBase.Columns.Add(Me.columnSellingPrice)
4298             Me.columnMargin = New Global.System.Data.DataColumn("Margin", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4299             MyBase.Columns.Add(Me.columnMargin)
4300             Me.columnQty = New Global.System.Data.DataColumn("Qty", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4301             MyBase.Columns.Add(Me.columnQty)
4302             Me.columnAmount = New Global.System.Data.DataColumn("Amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4303             MyBase.Columns.Add(Me.columnAmount)
4304             Me.columnDiscountPer = New Global.System.Data.DataColumn("DiscountPer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4305             MyBase.Columns.Add(Me.columnDiscountPer)
4306             Me.columnDiscount = New Global.System.Data.DataColumn("Discount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4307             MyBase.Columns.Add(Me.columnDiscount)
4308             Me.columnVATPer = New Global.System.Data.DataColumn("VATPer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4309             MyBase.Columns.Add(Me.columnVATPer)
4310             Me.columnVAT = New Global.System.Data.DataColumn("VAT", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4311             MyBase.Columns.Add(Me.columnVAT)
4312             Me.columnTotalAmount = New Global.System.Data.DataColumn("TotalAmount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4313             MyBase.Columns.Add(Me.columnTotalAmount)
4314             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnIpo_ID}, true))
4315             Me.columnIpo_ID.AutoIncrement = true
4316             Me.columnIpo_ID.AutoIncrementSeed = -1
4317             Me.columnIpo_ID.AutoIncrementStep = -1
4318             Me.columnIpo_ID.AllowDBNull = false
4319             Me.columnIpo_ID.ReadOnly = true
4320             Me.columnIpo_ID.Unique = true
4321             Me.columnInvoiceID.AllowDBNull = false
4322             Me.columnProductID.AllowDBNull = false
4323             Me.columnCostPrice.AllowDBNull = false
4324             Me.columnSellingPrice.AllowDBNull = false
4325             Me.columnMargin.AllowDBNull = false
4326             Me.columnQty.AllowDBNull = false
4327             Me.columnAmount.AllowDBNull = false
4328             Me.columnDiscountPer.AllowDBNull = false
4329             Me.columnDiscount.AllowDBNull = false
4330             Me.columnVATPer.AllowDBNull = false
4331             Me.columnVAT.AllowDBNull = false
4332             Me.columnTotalAmount.AllowDBNull = false
4333         End Sub
4334         
4335         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4336          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4337         Public Function NewInvoice1_ProductRow() As Invoice1_ProductRow
4338             Return CType(Me.NewRow,Invoice1_ProductRow)
4339         End Function
4340         
4341         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4342          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4343         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
4344             Return New Invoice1_ProductRow(builder)
4345         End Function
4346         
4347         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4348          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4349         Protected Overrides Function GetRowType() As Global.System.Type
4350             Return GetType(Invoice1_ProductRow)
4351         End Function
4352         
4353         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4354          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4355         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4356             MyBase.OnRowChanged(e)
4357             If (Not (Me.Invoice1_ProductRowChangedEvent) Is Nothing) Then
4358                 RaiseEvent Invoice1_ProductRowChanged(Me, New Invoice1_ProductRowChangeEvent(CType(e.Row,Invoice1_ProductRow), e.Action))
4359             End If
4360         End Sub
4361         
4362         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4363          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4364         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4365             MyBase.OnRowChanging(e)
4366             If (Not (Me.Invoice1_ProductRowChangingEvent) Is Nothing) Then
4367                 RaiseEvent Invoice1_ProductRowChanging(Me, New Invoice1_ProductRowChangeEvent(CType(e.Row,Invoice1_ProductRow), e.Action))
4368             End If
4369         End Sub
4370         
4371         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4372          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4373         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4374             MyBase.OnRowDeleted(e)
4375             If (Not (Me.Invoice1_ProductRowDeletedEvent) Is Nothing) Then
4376                 RaiseEvent Invoice1_ProductRowDeleted(Me, New Invoice1_ProductRowChangeEvent(CType(e.Row,Invoice1_ProductRow), e.Action))
4377             End If
4378         End Sub
4379         
4380         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4381          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4382         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4383             MyBase.OnRowDeleting(e)
4384             If (Not (Me.Invoice1_ProductRowDeletingEvent) Is Nothing) Then
4385                 RaiseEvent Invoice1_ProductRowDeleting(Me, New Invoice1_ProductRowChangeEvent(CType(e.Row,Invoice1_ProductRow), e.Action))
4386             End If
4387         End Sub
4388         
4389         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4390          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4391         Public Sub RemoveInvoice1_ProductRow(ByVal row As Invoice1_ProductRow)
4392             Me.Rows.Remove(row)
4393         End Sub
4394         
4395         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4396          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4397         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
4398             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
4399             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
4400             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
4401             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
4402             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
4403             any1.MinOccurs = New Decimal(0)
4404             any1.MaxOccurs = Decimal.MaxValue
4405             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
4406             sequence.Items.Add(any1)
4407             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
4408             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
4409             any2.MinOccurs = New Decimal(1)
4410             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
4411             sequence.Items.Add(any2)
4412             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
4413             attribute1.Name = "namespace"
4414             attribute1.FixedValue = ds.Namespace
4415             type.Attributes.Add(attribute1)
4416             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
4417             attribute2.Name = "tableTypeName"
4418             attribute2.FixedValue = "Invoice1_ProductDataTable"
4419             type.Attributes.Add(attribute2)
4420             type.Particle = sequence
4421             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
4422             If xs.Contains(dsSchema.TargetNamespace) Then
4423                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
4424                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
4425                 Try
4426                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
4427                     dsSchema.Write(s1)
4428                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
4429                     Do While schemas.MoveNext
4430                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
4431                         s2.SetLength(0)
4432                         schema.Write(s2)
4433                         If (s1.Length = s2.Length) Then
4434                             s1.Position = 0
4435                             s2.Position = 0
4436                             
4437                             Do While ((s1.Position <> s1.Length) _
4438                                         AndAlso (s1.ReadByte = s2.ReadByte))
4439                                 
4440                                 
4441                             Loop
4442                             If (s1.Position = s1.Length) Then
4443                                 Return type
4444                             End If
4445                         End If
4446                         
4447                     Loop
4448                 Finally
4449                     If (Not (s1) Is Nothing) Then
4450                         s1.Close
4451                     End If
4452                     If (Not (s2) Is Nothing) Then
4453                         s2.Close
4454                     End If
4455                 End Try
4456             End If
4457             xs.Add(dsSchema)
4458             Return type
4459         End Function
4460     End Class
4461     
4462     '''<summary>
4463     '''Represents the strongly named DataTable class.
4464     '''</summary>
4465     <Global.System.Serializable(), _
4466      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
4467     Partial Public Class InvoiceInfoDataTable
4468         Inherits Global.System.Data.TypedTableBase(Of InvoiceInfoRow)
4469         
4470         Private columnInv_ID As Global.System.Data.DataColumn
4471         
4472         Private columnInvoiceNo As Global.System.Data.DataColumn
4473         
4474         Private columnInvoiceDate As Global.System.Data.DataColumn
4475         
4476         Private columnCustomerID As Global.System.Data.DataColumn
4477         
4478         Private columnGrandTotal As Global.System.Data.DataColumn
4479         
4480         Private columnTotalPaid As Global.System.Data.DataColumn
4481         
4482         Private columnBalance As Global.System.Data.DataColumn
4483         
4484         Private columnRemarks As Global.System.Data.DataColumn
4485         
4486         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4487          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4488         Public Sub New()
4489             MyBase.New
4490             Me.TableName = "InvoiceInfo"
4491             Me.BeginInit
4492             Me.InitClass
4493             Me.EndInit
4494         End Sub
4495         
4496         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4497          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4498         Friend Sub New(ByVal table As Global.System.Data.DataTable)
4499             MyBase.New
4500             Me.TableName = table.TableName
4501             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
4502                 Me.CaseSensitive = table.CaseSensitive
4503             End If
4504             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
4505                 Me.Locale = table.Locale
4506             End If
4507             If (table.Namespace <> table.DataSet.Namespace) Then
4508                 Me.Namespace = table.Namespace
4509             End If
4510             Me.Prefix = table.Prefix
4511             Me.MinimumCapacity = table.MinimumCapacity
4512         End Sub
4513         
4514         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4515          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4516         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
4517             MyBase.New(info, context)
4518             Me.InitVars
4519         End Sub
4520         
4521         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4522          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4523         Public ReadOnly Property Inv_IDColumn() As Global.System.Data.DataColumn
4524             Get
4525                 Return Me.columnInv_ID
4526             End Get
4527         End Property
4528         
4529         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4530          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4531         Public ReadOnly Property InvoiceNoColumn() As Global.System.Data.DataColumn
4532             Get
4533                 Return Me.columnInvoiceNo
4534             End Get
4535         End Property
4536         
4537         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4538          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4539         Public ReadOnly Property InvoiceDateColumn() As Global.System.Data.DataColumn
4540             Get
4541                 Return Me.columnInvoiceDate
4542             End Get
4543         End Property
4544         
4545         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4546          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4547         Public ReadOnly Property CustomerIDColumn() As Global.System.Data.DataColumn
4548             Get
4549                 Return Me.columnCustomerID
4550             End Get
4551         End Property
4552         
4553         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4554          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4555         Public ReadOnly Property GrandTotalColumn() As Global.System.Data.DataColumn
4556             Get
4557                 Return Me.columnGrandTotal
4558             End Get
4559         End Property
4560         
4561         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4562          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4563         Public ReadOnly Property TotalPaidColumn() As Global.System.Data.DataColumn
4564             Get
4565                 Return Me.columnTotalPaid
4566             End Get
4567         End Property
4568         
4569         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4570          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4571         Public ReadOnly Property BalanceColumn() As Global.System.Data.DataColumn
4572             Get
4573                 Return Me.columnBalance
4574             End Get
4575         End Property
4576         
4577         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4578          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4579         Public ReadOnly Property RemarksColumn() As Global.System.Data.DataColumn
4580             Get
4581                 Return Me.columnRemarks
4582             End Get
4583         End Property
4584         
4585         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4586          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4587          Global.System.ComponentModel.Browsable(false)> _
4588         Public ReadOnly Property Count() As Integer
4589             Get
4590                 Return Me.Rows.Count
4591             End Get
4592         End Property
4593         
4594         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4595          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4596         Public Default ReadOnly Property Item(ByVal index As Integer) As InvoiceInfoRow
4597             Get
4598                 Return CType(Me.Rows(index),InvoiceInfoRow)
4599             End Get
4600         End Property
4601         
4602         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4603         Public Event InvoiceInfoRowChanging As InvoiceInfoRowChangeEventHandler
4604         
4605         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4606         Public Event InvoiceInfoRowChanged As InvoiceInfoRowChangeEventHandler
4607         
4608         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4609         Public Event InvoiceInfoRowDeleting As InvoiceInfoRowChangeEventHandler
4610         
4611         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4612         Public Event InvoiceInfoRowDeleted As InvoiceInfoRowChangeEventHandler
4613         
4614         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4615          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4616         Public Overloads Sub AddInvoiceInfoRow(ByVal row As InvoiceInfoRow)
4617             Me.Rows.Add(row)
4618         End Sub
4619         
4620         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4621          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4622         Public Overloads Function AddInvoiceInfoRow(ByVal Inv_ID As Integer, ByVal InvoiceNo As String, ByVal InvoiceDate As Date, ByVal parentCustomerRowByFK_InvoiceInfo_Customer As CustomerRow, ByVal GrandTotal As Decimal, ByVal TotalPaid As Decimal, ByVal Balance As Decimal, ByVal Remarks As String) As InvoiceInfoRow
4623             Dim rowInvoiceInfoRow As InvoiceInfoRow = CType(Me.NewRow,InvoiceInfoRow)
4624             Dim columnValuesArray() As Object = New Object() {Inv_ID, InvoiceNo, InvoiceDate, Nothing, GrandTotal, TotalPaid, Balance, Remarks}
4625             If (Not (parentCustomerRowByFK_InvoiceInfo_Customer) Is Nothing) Then
4626                 columnValuesArray(3) = parentCustomerRowByFK_InvoiceInfo_Customer(0)
4627             End If
4628             rowInvoiceInfoRow.ItemArray = columnValuesArray
4629             Me.Rows.Add(rowInvoiceInfoRow)
4630             Return rowInvoiceInfoRow
4631         End Function
4632         
4633         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4634          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4635         Public Function FindByInv_ID(ByVal Inv_ID As Integer) As InvoiceInfoRow
4636             Return CType(Me.Rows.Find(New Object() {Inv_ID}),InvoiceInfoRow)
4637         End Function
4638         
4639         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4640          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4641         Public Overrides Function Clone() As Global.System.Data.DataTable
4642             Dim cln As InvoiceInfoDataTable = CType(MyBase.Clone,InvoiceInfoDataTable)
4643             cln.InitVars
4644             Return cln
4645         End Function
4646         
4647         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4648          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4649         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
4650             Return New InvoiceInfoDataTable()
4651         End Function
4652         
4653         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4654          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4655         Friend Sub InitVars()
4656             Me.columnInv_ID = MyBase.Columns("Inv_ID")
4657             Me.columnInvoiceNo = MyBase.Columns("InvoiceNo")
4658             Me.columnInvoiceDate = MyBase.Columns("InvoiceDate")
4659             Me.columnCustomerID = MyBase.Columns("CustomerID")
4660             Me.columnGrandTotal = MyBase.Columns("GrandTotal")
4661             Me.columnTotalPaid = MyBase.Columns("TotalPaid")
4662             Me.columnBalance = MyBase.Columns("Balance")
4663             Me.columnRemarks = MyBase.Columns("Remarks")
4664         End Sub
4665         
4666         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4667          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4668         Private Sub InitClass()
4669             Me.columnInv_ID = New Global.System.Data.DataColumn("Inv_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4670             MyBase.Columns.Add(Me.columnInv_ID)
4671             Me.columnInvoiceNo = New Global.System.Data.DataColumn("InvoiceNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4672             MyBase.Columns.Add(Me.columnInvoiceNo)
4673             Me.columnInvoiceDate = New Global.System.Data.DataColumn("InvoiceDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
4674             MyBase.Columns.Add(Me.columnInvoiceDate)
4675             Me.columnCustomerID = New Global.System.Data.DataColumn("CustomerID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4676             MyBase.Columns.Add(Me.columnCustomerID)
4677             Me.columnGrandTotal = New Global.System.Data.DataColumn("GrandTotal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4678             MyBase.Columns.Add(Me.columnGrandTotal)
4679             Me.columnTotalPaid = New Global.System.Data.DataColumn("TotalPaid", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4680             MyBase.Columns.Add(Me.columnTotalPaid)
4681             Me.columnBalance = New Global.System.Data.DataColumn("Balance", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4682             MyBase.Columns.Add(Me.columnBalance)
4683             Me.columnRemarks = New Global.System.Data.DataColumn("Remarks", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4684             MyBase.Columns.Add(Me.columnRemarks)
4685             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnInv_ID}, true))
4686             Me.columnInv_ID.AllowDBNull = false
4687             Me.columnInv_ID.Unique = true
4688             Me.columnInvoiceNo.AllowDBNull = false
4689             Me.columnInvoiceNo.MaxLength = 30
4690             Me.columnInvoiceDate.AllowDBNull = false
4691             Me.columnCustomerID.AllowDBNull = false
4692             Me.columnGrandTotal.AllowDBNull = false
4693             Me.columnTotalPaid.AllowDBNull = false
4694             Me.columnBalance.AllowDBNull = false
4695             Me.columnRemarks.MaxLength = 2147483647
4696         End Sub
4697         
4698         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4699          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4700         Public Function NewInvoiceInfoRow() As InvoiceInfoRow
4701             Return CType(Me.NewRow,InvoiceInfoRow)
4702         End Function
4703         
4704         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4705          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4706         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
4707             Return New InvoiceInfoRow(builder)
4708         End Function
4709         
4710         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4711          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4712         Protected Overrides Function GetRowType() As Global.System.Type
4713             Return GetType(InvoiceInfoRow)
4714         End Function
4715         
4716         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4717          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4718         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4719             MyBase.OnRowChanged(e)
4720             If (Not (Me.InvoiceInfoRowChangedEvent) Is Nothing) Then
4721                 RaiseEvent InvoiceInfoRowChanged(Me, New InvoiceInfoRowChangeEvent(CType(e.Row,InvoiceInfoRow), e.Action))
4722             End If
4723         End Sub
4724         
4725         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4726          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4727         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4728             MyBase.OnRowChanging(e)
4729             If (Not (Me.InvoiceInfoRowChangingEvent) Is Nothing) Then
4730                 RaiseEvent InvoiceInfoRowChanging(Me, New InvoiceInfoRowChangeEvent(CType(e.Row,InvoiceInfoRow), e.Action))
4731             End If
4732         End Sub
4733         
4734         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4735          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4736         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4737             MyBase.OnRowDeleted(e)
4738             If (Not (Me.InvoiceInfoRowDeletedEvent) Is Nothing) Then
4739                 RaiseEvent InvoiceInfoRowDeleted(Me, New InvoiceInfoRowChangeEvent(CType(e.Row,InvoiceInfoRow), e.Action))
4740             End If
4741         End Sub
4742         
4743         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4744          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4745         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4746             MyBase.OnRowDeleting(e)
4747             If (Not (Me.InvoiceInfoRowDeletingEvent) Is Nothing) Then
4748                 RaiseEvent InvoiceInfoRowDeleting(Me, New InvoiceInfoRowChangeEvent(CType(e.Row,InvoiceInfoRow), e.Action))
4749             End If
4750         End Sub
4751         
4752         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4753          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4754         Public Sub RemoveInvoiceInfoRow(ByVal row As InvoiceInfoRow)
4755             Me.Rows.Remove(row)
4756         End Sub
4757         
4758         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4759          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4760         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
4761             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
4762             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
4763             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
4764             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
4765             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
4766             any1.MinOccurs = New Decimal(0)
4767             any1.MaxOccurs = Decimal.MaxValue
4768             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
4769             sequence.Items.Add(any1)
4770             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
4771             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
4772             any2.MinOccurs = New Decimal(1)
4773             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
4774             sequence.Items.Add(any2)
4775             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
4776             attribute1.Name = "namespace"
4777             attribute1.FixedValue = ds.Namespace
4778             type.Attributes.Add(attribute1)
4779             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
4780             attribute2.Name = "tableTypeName"
4781             attribute2.FixedValue = "InvoiceInfoDataTable"
4782             type.Attributes.Add(attribute2)
4783             type.Particle = sequence
4784             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
4785             If xs.Contains(dsSchema.TargetNamespace) Then
4786                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
4787                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
4788                 Try
4789                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
4790                     dsSchema.Write(s1)
4791                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
4792                     Do While schemas.MoveNext
4793                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
4794                         s2.SetLength(0)
4795                         schema.Write(s2)
4796                         If (s1.Length = s2.Length) Then
4797                             s1.Position = 0
4798                             s2.Position = 0
4799                             
4800                             Do While ((s1.Position <> s1.Length) _
4801                                         AndAlso (s1.ReadByte = s2.ReadByte))
4802                                 
4803                                 
4804                             Loop
4805                             If (s1.Position = s1.Length) Then
4806                                 Return type
4807                             End If
4808                         End If
4809                         
4810                     Loop
4811                 Finally
4812                     If (Not (s1) Is Nothing) Then
4813                         s1.Close
4814                     End If
4815                     If (Not (s2) Is Nothing) Then
4816                         s2.Close
4817                     End If
4818                 End Try
4819             End If
4820             xs.Add(dsSchema)
4821             Return type
4822         End Function
4823     End Class
4824     
4825     '''<summary>
4826     '''Represents the strongly named DataTable class.
4827     '''</summary>
4828     <Global.System.Serializable(), _
4829      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
4830     Partial Public Class InvoiceInfo1DataTable
4831         Inherits Global.System.Data.TypedTableBase(Of InvoiceInfo1Row)
4832         
4833         Private columnInv_ID As Global.System.Data.DataColumn
4834         
4835         Private columnInvoiceNo As Global.System.Data.DataColumn
4836         
4837         Private columnInvoiceDate As Global.System.Data.DataColumn
4838         
4839         Private columnServiceID As Global.System.Data.DataColumn
4840         
4841         Private columnRepairCharges As Global.System.Data.DataColumn
4842         
4843         Private columnUpfront As Global.System.Data.DataColumn
4844         
4845         Private columnProductCharges As Global.System.Data.DataColumn
4846         
4847         Private columnServiceTaxPer As Global.System.Data.DataColumn
4848         
4849         Private columnServiceTax As Global.System.Data.DataColumn
4850         
4851         Private columnGrandTotal As Global.System.Data.DataColumn
4852         
4853         Private columnTotalPaid As Global.System.Data.DataColumn
4854         
4855         Private columnBalance As Global.System.Data.DataColumn
4856         
4857         Private columnRemarks As Global.System.Data.DataColumn
4858         
4859         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4860          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4861         Public Sub New()
4862             MyBase.New
4863             Me.TableName = "InvoiceInfo1"
4864             Me.BeginInit
4865             Me.InitClass
4866             Me.EndInit
4867         End Sub
4868         
4869         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4870          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4871         Friend Sub New(ByVal table As Global.System.Data.DataTable)
4872             MyBase.New
4873             Me.TableName = table.TableName
4874             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
4875                 Me.CaseSensitive = table.CaseSensitive
4876             End If
4877             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
4878                 Me.Locale = table.Locale
4879             End If
4880             If (table.Namespace <> table.DataSet.Namespace) Then
4881                 Me.Namespace = table.Namespace
4882             End If
4883             Me.Prefix = table.Prefix
4884             Me.MinimumCapacity = table.MinimumCapacity
4885         End Sub
4886         
4887         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4888          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4889         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
4890             MyBase.New(info, context)
4891             Me.InitVars
4892         End Sub
4893         
4894         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4895          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4896         Public ReadOnly Property Inv_IDColumn() As Global.System.Data.DataColumn
4897             Get
4898                 Return Me.columnInv_ID
4899             End Get
4900         End Property
4901         
4902         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4903          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4904         Public ReadOnly Property InvoiceNoColumn() As Global.System.Data.DataColumn
4905             Get
4906                 Return Me.columnInvoiceNo
4907             End Get
4908         End Property
4909         
4910         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4911          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4912         Public ReadOnly Property InvoiceDateColumn() As Global.System.Data.DataColumn
4913             Get
4914                 Return Me.columnInvoiceDate
4915             End Get
4916         End Property
4917         
4918         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4919          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4920         Public ReadOnly Property ServiceIDColumn() As Global.System.Data.DataColumn
4921             Get
4922                 Return Me.columnServiceID
4923             End Get
4924         End Property
4925         
4926         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4927          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4928         Public ReadOnly Property RepairChargesColumn() As Global.System.Data.DataColumn
4929             Get
4930                 Return Me.columnRepairCharges
4931             End Get
4932         End Property
4933         
4934         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4935          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4936         Public ReadOnly Property UpfrontColumn() As Global.System.Data.DataColumn
4937             Get
4938                 Return Me.columnUpfront
4939             End Get
4940         End Property
4941         
4942         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4943          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4944         Public ReadOnly Property ProductChargesColumn() As Global.System.Data.DataColumn
4945             Get
4946                 Return Me.columnProductCharges
4947             End Get
4948         End Property
4949         
4950         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4951          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4952         Public ReadOnly Property ServiceTaxPerColumn() As Global.System.Data.DataColumn
4953             Get
4954                 Return Me.columnServiceTaxPer
4955             End Get
4956         End Property
4957         
4958         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4959          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4960         Public ReadOnly Property ServiceTaxColumn() As Global.System.Data.DataColumn
4961             Get
4962                 Return Me.columnServiceTax
4963             End Get
4964         End Property
4965         
4966         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4967          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4968         Public ReadOnly Property GrandTotalColumn() As Global.System.Data.DataColumn
4969             Get
4970                 Return Me.columnGrandTotal
4971             End Get
4972         End Property
4973         
4974         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4975          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4976         Public ReadOnly Property TotalPaidColumn() As Global.System.Data.DataColumn
4977             Get
4978                 Return Me.columnTotalPaid
4979             End Get
4980         End Property
4981         
4982         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4983          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4984         Public ReadOnly Property BalanceColumn() As Global.System.Data.DataColumn
4985             Get
4986                 Return Me.columnBalance
4987             End Get
4988         End Property
4989         
4990         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4991          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4992         Public ReadOnly Property RemarksColumn() As Global.System.Data.DataColumn
4993             Get
4994                 Return Me.columnRemarks
4995             End Get
4996         End Property
4997         
4998         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4999          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
5000          Global.System.ComponentModel.Browsable(false)> _
5001         Public ReadOnly Property Count() As Integer
5002             Get
5003                 Return Me.Rows.Count
5004             End Get
5005         End Property
5006         
5007         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5008          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5009         Public Default ReadOnly Property Item(ByVal index As Integer) As InvoiceInfo1Row
5010             Get
5011                 Return CType(Me.Rows(index),InvoiceInfo1Row)
5012             End Get
5013         End Property
5014         
5015         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5016         Public Event InvoiceInfo1RowChanging As InvoiceInfo1RowChangeEventHandler
5017         
5018         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5019         Public Event InvoiceInfo1RowChanged As InvoiceInfo1RowChangeEventHandler
5020         
5021         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5022         Public Event InvoiceInfo1RowDeleting As InvoiceInfo1RowChangeEventHandler
5023         
5024         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5025         Public Event InvoiceInfo1RowDeleted As InvoiceInfo1RowChangeEventHandler
5026         
5027         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5028          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5029         Public Overloads Sub AddInvoiceInfo1Row(ByVal row As InvoiceInfo1Row)
5030             Me.Rows.Add(row)
5031         End Sub
5032         
5033         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5034          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5035         Public Overloads Function AddInvoiceInfo1Row(ByVal Inv_ID As Integer, ByVal InvoiceNo As String, ByVal InvoiceDate As Date, ByVal parentServiceRowByFK_InvoiceInfo1_Service As ServiceRow, ByVal RepairCharges As Decimal, ByVal Upfront As Decimal, ByVal ProductCharges As Decimal, ByVal ServiceTaxPer As Decimal, ByVal ServiceTax As Decimal, ByVal GrandTotal As Decimal, ByVal TotalPaid As Decimal, ByVal Balance As Decimal, ByVal Remarks As String) As InvoiceInfo1Row
5036             Dim rowInvoiceInfo1Row As InvoiceInfo1Row = CType(Me.NewRow,InvoiceInfo1Row)
5037             Dim columnValuesArray() As Object = New Object() {Inv_ID, InvoiceNo, InvoiceDate, Nothing, RepairCharges, Upfront, ProductCharges, ServiceTaxPer, ServiceTax, GrandTotal, TotalPaid, Balance, Remarks}
5038             If (Not (parentServiceRowByFK_InvoiceInfo1_Service) Is Nothing) Then
5039                 columnValuesArray(3) = parentServiceRowByFK_InvoiceInfo1_Service(0)
5040             End If
5041             rowInvoiceInfo1Row.ItemArray = columnValuesArray
5042             Me.Rows.Add(rowInvoiceInfo1Row)
5043             Return rowInvoiceInfo1Row
5044         End Function
5045         
5046         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5047          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5048         Public Function FindByInv_ID(ByVal Inv_ID As Integer) As InvoiceInfo1Row
5049             Return CType(Me.Rows.Find(New Object() {Inv_ID}),InvoiceInfo1Row)
5050         End Function
5051         
5052         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5053          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5054         Public Overrides Function Clone() As Global.System.Data.DataTable
5055             Dim cln As InvoiceInfo1DataTable = CType(MyBase.Clone,InvoiceInfo1DataTable)
5056             cln.InitVars
5057             Return cln
5058         End Function
5059         
5060         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5061          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5062         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
5063             Return New InvoiceInfo1DataTable()
5064         End Function
5065         
5066         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5067          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5068         Friend Sub InitVars()
5069             Me.columnInv_ID = MyBase.Columns("Inv_ID")
5070             Me.columnInvoiceNo = MyBase.Columns("InvoiceNo")
5071             Me.columnInvoiceDate = MyBase.Columns("InvoiceDate")
5072             Me.columnServiceID = MyBase.Columns("ServiceID")
5073             Me.columnRepairCharges = MyBase.Columns("RepairCharges")
5074             Me.columnUpfront = MyBase.Columns("Upfront")
5075             Me.columnProductCharges = MyBase.Columns("ProductCharges")
5076             Me.columnServiceTaxPer = MyBase.Columns("ServiceTaxPer")
5077             Me.columnServiceTax = MyBase.Columns("ServiceTax")
5078             Me.columnGrandTotal = MyBase.Columns("GrandTotal")
5079             Me.columnTotalPaid = MyBase.Columns("TotalPaid")
5080             Me.columnBalance = MyBase.Columns("Balance")
5081             Me.columnRemarks = MyBase.Columns("Remarks")
5082         End Sub
5083         
5084         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5085          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5086         Private Sub InitClass()
5087             Me.columnInv_ID = New Global.System.Data.DataColumn("Inv_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
5088             MyBase.Columns.Add(Me.columnInv_ID)
5089             Me.columnInvoiceNo = New Global.System.Data.DataColumn("InvoiceNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5090             MyBase.Columns.Add(Me.columnInvoiceNo)
5091             Me.columnInvoiceDate = New Global.System.Data.DataColumn("InvoiceDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
5092             MyBase.Columns.Add(Me.columnInvoiceDate)
5093             Me.columnServiceID = New Global.System.Data.DataColumn("ServiceID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
5094             MyBase.Columns.Add(Me.columnServiceID)
5095             Me.columnRepairCharges = New Global.System.Data.DataColumn("RepairCharges", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5096             MyBase.Columns.Add(Me.columnRepairCharges)
5097             Me.columnUpfront = New Global.System.Data.DataColumn("Upfront", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5098             MyBase.Columns.Add(Me.columnUpfront)
5099             Me.columnProductCharges = New Global.System.Data.DataColumn("ProductCharges", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5100             MyBase.Columns.Add(Me.columnProductCharges)
5101             Me.columnServiceTaxPer = New Global.System.Data.DataColumn("ServiceTaxPer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5102             MyBase.Columns.Add(Me.columnServiceTaxPer)
5103             Me.columnServiceTax = New Global.System.Data.DataColumn("ServiceTax", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5104             MyBase.Columns.Add(Me.columnServiceTax)
5105             Me.columnGrandTotal = New Global.System.Data.DataColumn("GrandTotal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5106             MyBase.Columns.Add(Me.columnGrandTotal)
5107             Me.columnTotalPaid = New Global.System.Data.DataColumn("TotalPaid", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5108             MyBase.Columns.Add(Me.columnTotalPaid)
5109             Me.columnBalance = New Global.System.Data.DataColumn("Balance", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5110             MyBase.Columns.Add(Me.columnBalance)
5111             Me.columnRemarks = New Global.System.Data.DataColumn("Remarks", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5112             MyBase.Columns.Add(Me.columnRemarks)
5113             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnInv_ID}, true))
5114             Me.columnInv_ID.AllowDBNull = false
5115             Me.columnInv_ID.Unique = true
5116             Me.columnInvoiceNo.AllowDBNull = false
5117             Me.columnInvoiceNo.MaxLength = 30
5118             Me.columnInvoiceDate.AllowDBNull = false
5119             Me.columnServiceID.AllowDBNull = false
5120             Me.columnRepairCharges.AllowDBNull = false
5121             Me.columnUpfront.AllowDBNull = false
5122             Me.columnProductCharges.AllowDBNull = false
5123             Me.columnServiceTaxPer.AllowDBNull = false
5124             Me.columnServiceTax.AllowDBNull = false
5125             Me.columnGrandTotal.AllowDBNull = false
5126             Me.columnTotalPaid.AllowDBNull = false
5127             Me.columnBalance.AllowDBNull = false
5128             Me.columnRemarks.MaxLength = 2147483647
5129         End Sub
5130         
5131         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5132          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5133         Public Function NewInvoiceInfo1Row() As InvoiceInfo1Row
5134             Return CType(Me.NewRow,InvoiceInfo1Row)
5135         End Function
5136         
5137         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5138          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5139         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
5140             Return New InvoiceInfo1Row(builder)
5141         End Function
5142         
5143         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5144          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5145         Protected Overrides Function GetRowType() As Global.System.Type
5146             Return GetType(InvoiceInfo1Row)
5147         End Function
5148         
5149         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5150          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5151         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5152             MyBase.OnRowChanged(e)
5153             If (Not (Me.InvoiceInfo1RowChangedEvent) Is Nothing) Then
5154                 RaiseEvent InvoiceInfo1RowChanged(Me, New InvoiceInfo1RowChangeEvent(CType(e.Row,InvoiceInfo1Row), e.Action))
5155             End If
5156         End Sub
5157         
5158         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5159          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5160         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5161             MyBase.OnRowChanging(e)
5162             If (Not (Me.InvoiceInfo1RowChangingEvent) Is Nothing) Then
5163                 RaiseEvent InvoiceInfo1RowChanging(Me, New InvoiceInfo1RowChangeEvent(CType(e.Row,InvoiceInfo1Row), e.Action))
5164             End If
5165         End Sub
5166         
5167         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5168          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5169         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5170             MyBase.OnRowDeleted(e)
5171             If (Not (Me.InvoiceInfo1RowDeletedEvent) Is Nothing) Then
5172                 RaiseEvent InvoiceInfo1RowDeleted(Me, New InvoiceInfo1RowChangeEvent(CType(e.Row,InvoiceInfo1Row), e.Action))
5173             End If
5174         End Sub
5175         
5176         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5177          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5178         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5179             MyBase.OnRowDeleting(e)
5180             If (Not (Me.InvoiceInfo1RowDeletingEvent) Is Nothing) Then
5181                 RaiseEvent InvoiceInfo1RowDeleting(Me, New InvoiceInfo1RowChangeEvent(CType(e.Row,InvoiceInfo1Row), e.Action))
5182             End If
5183         End Sub
5184         
5185         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5186          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5187         Public Sub RemoveInvoiceInfo1Row(ByVal row As InvoiceInfo1Row)
5188             Me.Rows.Remove(row)
5189         End Sub
5190         
5191         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5192          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5193         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
5194             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
5195             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
5196             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
5197             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5198             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
5199             any1.MinOccurs = New Decimal(0)
5200             any1.MaxOccurs = Decimal.MaxValue
5201             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5202             sequence.Items.Add(any1)
5203             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5204             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
5205             any2.MinOccurs = New Decimal(1)
5206             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5207             sequence.Items.Add(any2)
5208             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5209             attribute1.Name = "namespace"
5210             attribute1.FixedValue = ds.Namespace
5211             type.Attributes.Add(attribute1)
5212             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5213             attribute2.Name = "tableTypeName"
5214             attribute2.FixedValue = "InvoiceInfo1DataTable"
5215             type.Attributes.Add(attribute2)
5216             type.Particle = sequence
5217             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
5218             If xs.Contains(dsSchema.TargetNamespace) Then
5219                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5220                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5221                 Try
5222                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
5223                     dsSchema.Write(s1)
5224                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
5225                     Do While schemas.MoveNext
5226                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
5227                         s2.SetLength(0)
5228                         schema.Write(s2)
5229                         If (s1.Length = s2.Length) Then
5230                             s1.Position = 0
5231                             s2.Position = 0
5232                             
5233                             Do While ((s1.Position <> s1.Length) _
5234                                         AndAlso (s1.ReadByte = s2.ReadByte))
5235                                 
5236                                 
5237                             Loop
5238                             If (s1.Position = s1.Length) Then
5239                                 Return type
5240                             End If
5241                         End If
5242                         
5243                     Loop
5244                 Finally
5245                     If (Not (s1) Is Nothing) Then
5246                         s1.Close
5247                     End If
5248                     If (Not (s2) Is Nothing) Then
5249                         s2.Close
5250                     End If
5251                 End Try
5252             End If
5253             xs.Add(dsSchema)
5254             Return type
5255         End Function
5256     End Class
5257     
5258     '''<summary>
5259     '''Represents the strongly named DataTable class.
5260     '''</summary>
5261     <Global.System.Serializable(), _
5262      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
5263     Partial Public Class LogsDataTable
5264         Inherits Global.System.Data.TypedTableBase(Of LogsRow)
5265         
5266         Private columnID As Global.System.Data.DataColumn
5267         
5268         Private columnUserID As Global.System.Data.DataColumn
5269         
5270         Private columnOperation As Global.System.Data.DataColumn
5271         
5272         Private columnDate As Global.System.Data.DataColumn
5273         
5274         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5275          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5276         Public Sub New()
5277             MyBase.New
5278             Me.TableName = "Logs"
5279             Me.BeginInit
5280             Me.InitClass
5281             Me.EndInit
5282         End Sub
5283         
5284         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5285          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5286         Friend Sub New(ByVal table As Global.System.Data.DataTable)
5287             MyBase.New
5288             Me.TableName = table.TableName
5289             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
5290                 Me.CaseSensitive = table.CaseSensitive
5291             End If
5292             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
5293                 Me.Locale = table.Locale
5294             End If
5295             If (table.Namespace <> table.DataSet.Namespace) Then
5296                 Me.Namespace = table.Namespace
5297             End If
5298             Me.Prefix = table.Prefix
5299             Me.MinimumCapacity = table.MinimumCapacity
5300         End Sub
5301         
5302         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5303          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5304         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
5305             MyBase.New(info, context)
5306             Me.InitVars
5307         End Sub
5308         
5309         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5310          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5311         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
5312             Get
5313                 Return Me.columnID
5314             End Get
5315         End Property
5316         
5317         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5318          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5319         Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
5320             Get
5321                 Return Me.columnUserID
5322             End Get
5323         End Property
5324         
5325         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5326          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5327         Public ReadOnly Property OperationColumn() As Global.System.Data.DataColumn
5328             Get
5329                 Return Me.columnOperation
5330             End Get
5331         End Property
5332         
5333         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5334          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5335         Public ReadOnly Property DateColumn() As Global.System.Data.DataColumn
5336             Get
5337                 Return Me.columnDate
5338             End Get
5339         End Property
5340         
5341         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5342          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
5343          Global.System.ComponentModel.Browsable(false)> _
5344         Public ReadOnly Property Count() As Integer
5345             Get
5346                 Return Me.Rows.Count
5347             End Get
5348         End Property
5349         
5350         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5351          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5352         Public Default ReadOnly Property Item(ByVal index As Integer) As LogsRow
5353             Get
5354                 Return CType(Me.Rows(index),LogsRow)
5355             End Get
5356         End Property
5357         
5358         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5359         Public Event LogsRowChanging As LogsRowChangeEventHandler
5360         
5361         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5362         Public Event LogsRowChanged As LogsRowChangeEventHandler
5363         
5364         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5365         Public Event LogsRowDeleting As LogsRowChangeEventHandler
5366         
5367         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5368         Public Event LogsRowDeleted As LogsRowChangeEventHandler
5369         
5370         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5371          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5372         Public Overloads Sub AddLogsRow(ByVal row As LogsRow)
5373             Me.Rows.Add(row)
5374         End Sub
5375         
5376         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5377          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5378         Public Overloads Function AddLogsRow(ByVal parentRegistrationRowByFK_Logs_Registration As RegistrationRow, ByVal Operation As String, ByVal _Date As Date) As LogsRow
5379             Dim rowLogsRow As LogsRow = CType(Me.NewRow,LogsRow)
5380             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Operation, _Date}
5381             If (Not (parentRegistrationRowByFK_Logs_Registration) Is Nothing) Then
5382                 columnValuesArray(1) = parentRegistrationRowByFK_Logs_Registration(0)
5383             End If
5384             rowLogsRow.ItemArray = columnValuesArray
5385             Me.Rows.Add(rowLogsRow)
5386             Return rowLogsRow
5387         End Function
5388         
5389         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5390          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5391         Public Function FindByID(ByVal ID As Integer) As LogsRow
5392             Return CType(Me.Rows.Find(New Object() {ID}),LogsRow)
5393         End Function
5394         
5395         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5396          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5397         Public Overrides Function Clone() As Global.System.Data.DataTable
5398             Dim cln As LogsDataTable = CType(MyBase.Clone,LogsDataTable)
5399             cln.InitVars
5400             Return cln
5401         End Function
5402         
5403         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5404          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5405         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
5406             Return New LogsDataTable()
5407         End Function
5408         
5409         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5410          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5411         Friend Sub InitVars()
5412             Me.columnID = MyBase.Columns("ID")
5413             Me.columnUserID = MyBase.Columns("UserID")
5414             Me.columnOperation = MyBase.Columns("Operation")
5415             Me.columnDate = MyBase.Columns("Date")
5416         End Sub
5417         
5418         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5419          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5420         Private Sub InitClass()
5421             Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
5422             MyBase.Columns.Add(Me.columnID)
5423             Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5424             MyBase.Columns.Add(Me.columnUserID)
5425             Me.columnOperation = New Global.System.Data.DataColumn("Operation", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5426             MyBase.Columns.Add(Me.columnOperation)
5427             Me.columnDate = New Global.System.Data.DataColumn("Date", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
5428             Me.columnDate.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "DateColumn")
5429             Me.columnDate.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnDate")
5430             Me.columnDate.ExtendedProperties.Add("Generator_UserColumnName", "Date")
5431             MyBase.Columns.Add(Me.columnDate)
5432             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
5433             Me.columnID.AutoIncrement = true
5434             Me.columnID.AutoIncrementSeed = -1
5435             Me.columnID.AutoIncrementStep = -1
5436             Me.columnID.AllowDBNull = false
5437             Me.columnID.ReadOnly = true
5438             Me.columnID.Unique = true
5439             Me.columnUserID.AllowDBNull = false
5440             Me.columnUserID.MaxLength = 100
5441             Me.columnOperation.AllowDBNull = false
5442             Me.columnOperation.MaxLength = 2147483647
5443             Me.columnDate.AllowDBNull = false
5444         End Sub
5445         
5446         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5447          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5448         Public Function NewLogsRow() As LogsRow
5449             Return CType(Me.NewRow,LogsRow)
5450         End Function
5451         
5452         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5453          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5454         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
5455             Return New LogsRow(builder)
5456         End Function
5457         
5458         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5459          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5460         Protected Overrides Function GetRowType() As Global.System.Type
5461             Return GetType(LogsRow)
5462         End Function
5463         
5464         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5465          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5466         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5467             MyBase.OnRowChanged(e)
5468             If (Not (Me.LogsRowChangedEvent) Is Nothing) Then
5469                 RaiseEvent LogsRowChanged(Me, New LogsRowChangeEvent(CType(e.Row,LogsRow), e.Action))
5470             End If
5471         End Sub
5472         
5473         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5474          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5475         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5476             MyBase.OnRowChanging(e)
5477             If (Not (Me.LogsRowChangingEvent) Is Nothing) Then
5478                 RaiseEvent LogsRowChanging(Me, New LogsRowChangeEvent(CType(e.Row,LogsRow), e.Action))
5479             End If
5480         End Sub
5481         
5482         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5483          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5484         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5485             MyBase.OnRowDeleted(e)
5486             If (Not (Me.LogsRowDeletedEvent) Is Nothing) Then
5487                 RaiseEvent LogsRowDeleted(Me, New LogsRowChangeEvent(CType(e.Row,LogsRow), e.Action))
5488             End If
5489         End Sub
5490         
5491         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5492          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5493         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5494             MyBase.OnRowDeleting(e)
5495             If (Not (Me.LogsRowDeletingEvent) Is Nothing) Then
5496                 RaiseEvent LogsRowDeleting(Me, New LogsRowChangeEvent(CType(e.Row,LogsRow), e.Action))
5497             End If
5498         End Sub
5499         
5500         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5501          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5502         Public Sub RemoveLogsRow(ByVal row As LogsRow)
5503             Me.Rows.Remove(row)
5504         End Sub
5505         
5506         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5507          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5508         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
5509             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
5510             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
5511             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
5512             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5513             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
5514             any1.MinOccurs = New Decimal(0)
5515             any1.MaxOccurs = Decimal.MaxValue
5516             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5517             sequence.Items.Add(any1)
5518             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5519             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
5520             any2.MinOccurs = New Decimal(1)
5521             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5522             sequence.Items.Add(any2)
5523             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5524             attribute1.Name = "namespace"
5525             attribute1.FixedValue = ds.Namespace
5526             type.Attributes.Add(attribute1)
5527             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5528             attribute2.Name = "tableTypeName"
5529             attribute2.FixedValue = "LogsDataTable"
5530             type.Attributes.Add(attribute2)
5531             type.Particle = sequence
5532             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
5533             If xs.Contains(dsSchema.TargetNamespace) Then
5534                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5535                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5536                 Try
5537                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
5538                     dsSchema.Write(s1)
5539                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
5540                     Do While schemas.MoveNext
5541                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
5542                         s2.SetLength(0)
5543                         schema.Write(s2)
5544                         If (s1.Length = s2.Length) Then
5545                             s1.Position = 0
5546                             s2.Position = 0
5547                             
5548                             Do While ((s1.Position <> s1.Length) _
5549                                         AndAlso (s1.ReadByte = s2.ReadByte))
5550                                 
5551                                 
5552                             Loop
5553                             If (s1.Position = s1.Length) Then
5554                                 Return type
5555                             End If
5556                         End If
5557                         
5558                     Loop
5559                 Finally
5560                     If (Not (s1) Is Nothing) Then
5561                         s1.Close
5562                     End If
5563                     If (Not (s2) Is Nothing) Then
5564                         s2.Close
5565                     End If
5566                 End Try
5567             End If
5568             xs.Add(dsSchema)
5569             Return type
5570         End Function
5571     End Class
5572     
5573     '''<summary>
5574     '''Represents the strongly named DataTable class.
5575     '''</summary>
5576     <Global.System.Serializable(), _
5577      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
5578     Partial Public Class ProductDataTable
5579         Inherits Global.System.Data.TypedTableBase(Of ProductRow)
5580         
5581         Private columnPID As Global.System.Data.DataColumn
5582         
5583         Private columnProductCode As Global.System.Data.DataColumn
5584         
5585         Private columnProductName As Global.System.Data.DataColumn
5586         
5587         Private columnSubCategoryID As Global.System.Data.DataColumn
5588         
5589         Private columnDescription As Global.System.Data.DataColumn
5590         
5591         Private columnCostPrice As Global.System.Data.DataColumn
5592         
5593         Private columnSellingPrice As Global.System.Data.DataColumn
5594         
5595         Private columnDiscount As Global.System.Data.DataColumn
5596         
5597         Private columnVAT As Global.System.Data.DataColumn
5598         
5599         Private columnReorderPoint As Global.System.Data.DataColumn
5600         
5601         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5602          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5603         Public Sub New()
5604             MyBase.New
5605             Me.TableName = "Product"
5606             Me.BeginInit
5607             Me.InitClass
5608             Me.EndInit
5609         End Sub
5610         
5611         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5612          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5613         Friend Sub New(ByVal table As Global.System.Data.DataTable)
5614             MyBase.New
5615             Me.TableName = table.TableName
5616             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
5617                 Me.CaseSensitive = table.CaseSensitive
5618             End If
5619             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
5620                 Me.Locale = table.Locale
5621             End If
5622             If (table.Namespace <> table.DataSet.Namespace) Then
5623                 Me.Namespace = table.Namespace
5624             End If
5625             Me.Prefix = table.Prefix
5626             Me.MinimumCapacity = table.MinimumCapacity
5627         End Sub
5628         
5629         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5630          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5631         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
5632             MyBase.New(info, context)
5633             Me.InitVars
5634         End Sub
5635         
5636         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5637          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5638         Public ReadOnly Property PIDColumn() As Global.System.Data.DataColumn
5639             Get
5640                 Return Me.columnPID
5641             End Get
5642         End Property
5643         
5644         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5645          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5646         Public ReadOnly Property ProductCodeColumn() As Global.System.Data.DataColumn
5647             Get
5648                 Return Me.columnProductCode
5649             End Get
5650         End Property
5651         
5652         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5653          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5654         Public ReadOnly Property ProductNameColumn() As Global.System.Data.DataColumn
5655             Get
5656                 Return Me.columnProductName
5657             End Get
5658         End Property
5659         
5660         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5661          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5662         Public ReadOnly Property SubCategoryIDColumn() As Global.System.Data.DataColumn
5663             Get
5664                 Return Me.columnSubCategoryID
5665             End Get
5666         End Property
5667         
5668         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5669          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5670         Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn
5671             Get
5672                 Return Me.columnDescription
5673             End Get
5674         End Property
5675         
5676         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5677          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5678         Public ReadOnly Property CostPriceColumn() As Global.System.Data.DataColumn
5679             Get
5680                 Return Me.columnCostPrice
5681             End Get
5682         End Property
5683         
5684         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5685          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5686         Public ReadOnly Property SellingPriceColumn() As Global.System.Data.DataColumn
5687             Get
5688                 Return Me.columnSellingPrice
5689             End Get
5690         End Property
5691         
5692         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5693          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5694         Public ReadOnly Property DiscountColumn() As Global.System.Data.DataColumn
5695             Get
5696                 Return Me.columnDiscount
5697             End Get
5698         End Property
5699         
5700         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5701          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5702         Public ReadOnly Property VATColumn() As Global.System.Data.DataColumn
5703             Get
5704                 Return Me.columnVAT
5705             End Get
5706         End Property
5707         
5708         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5709          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5710         Public ReadOnly Property ReorderPointColumn() As Global.System.Data.DataColumn
5711             Get
5712                 Return Me.columnReorderPoint
5713             End Get
5714         End Property
5715         
5716         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5717          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
5718          Global.System.ComponentModel.Browsable(false)> _
5719         Public ReadOnly Property Count() As Integer
5720             Get
5721                 Return Me.Rows.Count
5722             End Get
5723         End Property
5724         
5725         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5726          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5727         Public Default ReadOnly Property Item(ByVal index As Integer) As ProductRow
5728             Get
5729                 Return CType(Me.Rows(index),ProductRow)
5730             End Get
5731         End Property
5732         
5733         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5734         Public Event ProductRowChanging As ProductRowChangeEventHandler
5735         
5736         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5737         Public Event ProductRowChanged As ProductRowChangeEventHandler
5738         
5739         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5740         Public Event ProductRowDeleting As ProductRowChangeEventHandler
5741         
5742         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5743         Public Event ProductRowDeleted As ProductRowChangeEventHandler
5744         
5745         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5746          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5747         Public Overloads Sub AddProductRow(ByVal row As ProductRow)
5748             Me.Rows.Add(row)
5749         End Sub
5750         
5751         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5752          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5753         Public Overloads Function AddProductRow(ByVal PID As Integer, ByVal ProductCode As String, ByVal ProductName As String, ByVal parentSubCategoryRowByFK_Product_SubCategory As SubCategoryRow, ByVal Description As String, ByVal CostPrice As Decimal, ByVal SellingPrice As Decimal, ByVal Discount As Decimal, ByVal VAT As Decimal, ByVal ReorderPoint As Integer) As ProductRow
5754             Dim rowProductRow As ProductRow = CType(Me.NewRow,ProductRow)
5755             Dim columnValuesArray() As Object = New Object() {PID, ProductCode, ProductName, Nothing, Description, CostPrice, SellingPrice, Discount, VAT, ReorderPoint}
5756             If (Not (parentSubCategoryRowByFK_Product_SubCategory) Is Nothing) Then
5757                 columnValuesArray(3) = parentSubCategoryRowByFK_Product_SubCategory(0)
5758             End If
5759             rowProductRow.ItemArray = columnValuesArray
5760             Me.Rows.Add(rowProductRow)
5761             Return rowProductRow
5762         End Function
5763         
5764         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5765          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5766         Public Function FindByPID(ByVal PID As Integer) As ProductRow
5767             Return CType(Me.Rows.Find(New Object() {PID}),ProductRow)
5768         End Function
5769         
5770         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5771          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5772         Public Overrides Function Clone() As Global.System.Data.DataTable
5773             Dim cln As ProductDataTable = CType(MyBase.Clone,ProductDataTable)
5774             cln.InitVars
5775             Return cln
5776         End Function
5777         
5778         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5779          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5780         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
5781             Return New ProductDataTable()
5782         End Function
5783         
5784         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5785          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5786         Friend Sub InitVars()
5787             Me.columnPID = MyBase.Columns("PID")
5788             Me.columnProductCode = MyBase.Columns("ProductCode")
5789             Me.columnProductName = MyBase.Columns("ProductName")
5790             Me.columnSubCategoryID = MyBase.Columns("SubCategoryID")
5791             Me.columnDescription = MyBase.Columns("Description")
5792             Me.columnCostPrice = MyBase.Columns("CostPrice")
5793             Me.columnSellingPrice = MyBase.Columns("SellingPrice")
5794             Me.columnDiscount = MyBase.Columns("Discount")
5795             Me.columnVAT = MyBase.Columns("VAT")
5796             Me.columnReorderPoint = MyBase.Columns("ReorderPoint")
5797         End Sub
5798         
5799         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5800          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5801         Private Sub InitClass()
5802             Me.columnPID = New Global.System.Data.DataColumn("PID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
5803             MyBase.Columns.Add(Me.columnPID)
5804             Me.columnProductCode = New Global.System.Data.DataColumn("ProductCode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5805             MyBase.Columns.Add(Me.columnProductCode)
5806             Me.columnProductName = New Global.System.Data.DataColumn("ProductName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5807             MyBase.Columns.Add(Me.columnProductName)
5808             Me.columnSubCategoryID = New Global.System.Data.DataColumn("SubCategoryID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
5809             MyBase.Columns.Add(Me.columnSubCategoryID)
5810             Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5811             MyBase.Columns.Add(Me.columnDescription)
5812             Me.columnCostPrice = New Global.System.Data.DataColumn("CostPrice", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5813             MyBase.Columns.Add(Me.columnCostPrice)
5814             Me.columnSellingPrice = New Global.System.Data.DataColumn("SellingPrice", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5815             MyBase.Columns.Add(Me.columnSellingPrice)
5816             Me.columnDiscount = New Global.System.Data.DataColumn("Discount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5817             MyBase.Columns.Add(Me.columnDiscount)
5818             Me.columnVAT = New Global.System.Data.DataColumn("VAT", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5819             MyBase.Columns.Add(Me.columnVAT)
5820             Me.columnReorderPoint = New Global.System.Data.DataColumn("ReorderPoint", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
5821             MyBase.Columns.Add(Me.columnReorderPoint)
5822             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnPID}, true))
5823             Me.columnPID.AllowDBNull = false
5824             Me.columnPID.Unique = true
5825             Me.columnProductCode.AllowDBNull = false
5826             Me.columnProductCode.MaxLength = 30
5827             Me.columnProductName.AllowDBNull = false
5828             Me.columnProductName.MaxLength = 200
5829             Me.columnSubCategoryID.AllowDBNull = false
5830             Me.columnDescription.MaxLength = 2147483647
5831             Me.columnCostPrice.AllowDBNull = false
5832             Me.columnSellingPrice.AllowDBNull = false
5833             Me.columnDiscount.AllowDBNull = false
5834             Me.columnVAT.AllowDBNull = false
5835             Me.columnReorderPoint.AllowDBNull = false
5836         End Sub
5837         
5838         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5839          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5840         Public Function NewProductRow() As ProductRow
5841             Return CType(Me.NewRow,ProductRow)
5842         End Function
5843         
5844         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5845          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5846         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
5847             Return New ProductRow(builder)
5848         End Function
5849         
5850         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5851          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5852         Protected Overrides Function GetRowType() As Global.System.Type
5853             Return GetType(ProductRow)
5854         End Function
5855         
5856         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5857          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5858         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5859             MyBase.OnRowChanged(e)
5860             If (Not (Me.ProductRowChangedEvent) Is Nothing) Then
5861                 RaiseEvent ProductRowChanged(Me, New ProductRowChangeEvent(CType(e.Row,ProductRow), e.Action))
5862             End If
5863         End Sub
5864         
5865         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5866          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5867         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5868             MyBase.OnRowChanging(e)
5869             If (Not (Me.ProductRowChangingEvent) Is Nothing) Then
5870                 RaiseEvent ProductRowChanging(Me, New ProductRowChangeEvent(CType(e.Row,ProductRow), e.Action))
5871             End If
5872         End Sub
5873         
5874         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5875          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5876         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5877             MyBase.OnRowDeleted(e)
5878             If (Not (Me.ProductRowDeletedEvent) Is Nothing) Then
5879                 RaiseEvent ProductRowDeleted(Me, New ProductRowChangeEvent(CType(e.Row,ProductRow), e.Action))
5880             End If
5881         End Sub
5882         
5883         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5884          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5885         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5886             MyBase.OnRowDeleting(e)
5887             If (Not (Me.ProductRowDeletingEvent) Is Nothing) Then
5888                 RaiseEvent ProductRowDeleting(Me, New ProductRowChangeEvent(CType(e.Row,ProductRow), e.Action))
5889             End If
5890         End Sub
5891         
5892         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5893          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5894         Public Sub RemoveProductRow(ByVal row As ProductRow)
5895             Me.Rows.Remove(row)
5896         End Sub
5897         
5898         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5899          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5900         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
5901             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
5902             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
5903             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
5904             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5905             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
5906             any1.MinOccurs = New Decimal(0)
5907             any1.MaxOccurs = Decimal.MaxValue
5908             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5909             sequence.Items.Add(any1)
5910             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5911             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
5912             any2.MinOccurs = New Decimal(1)
5913             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5914             sequence.Items.Add(any2)
5915             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5916             attribute1.Name = "namespace"
5917             attribute1.FixedValue = ds.Namespace
5918             type.Attributes.Add(attribute1)
5919             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5920             attribute2.Name = "tableTypeName"
5921             attribute2.FixedValue = "ProductDataTable"
5922             type.Attributes.Add(attribute2)
5923             type.Particle = sequence
5924             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
5925             If xs.Contains(dsSchema.TargetNamespace) Then
5926                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5927                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5928                 Try
5929                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
5930                     dsSchema.Write(s1)
5931                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
5932                     Do While schemas.MoveNext
5933                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
5934                         s2.SetLength(0)
5935                         schema.Write(s2)
5936                         If (s1.Length = s2.Length) Then
5937                             s1.Position = 0
5938                             s2.Position = 0
5939                             
5940                             Do While ((s1.Position <> s1.Length) _
5941                                         AndAlso (s1.ReadByte = s2.ReadByte))
5942                                 
5943                                 
5944                             Loop
5945                             If (s1.Position = s1.Length) Then
5946                                 Return type
5947                             End If
5948                         End If
5949                         
5950                     Loop
5951                 Finally
5952                     If (Not (s1) Is Nothing) Then
5953                         s1.Close
5954                     End If
5955                     If (Not (s2) Is Nothing) Then
5956                         s2.Close
5957                     End If
5958                 End Try
5959             End If
5960             xs.Add(dsSchema)
5961             Return type
5962         End Function
5963     End Class
5964     
5965     '''<summary>
5966     '''Represents the strongly named DataTable class.
5967     '''</summary>
5968     <Global.System.Serializable(), _
5969      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
5970     Partial Public Class Product_JoinDataTable
5971         Inherits Global.System.Data.TypedTableBase(Of Product_JoinRow)
5972         
5973         Private columnId As Global.System.Data.DataColumn
5974         
5975         Private columnProductID As Global.System.Data.DataColumn
5976         
5977         Private columnPhoto As Global.System.Data.DataColumn
5978         
5979         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5980          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5981         Public Sub New()
5982             MyBase.New
5983             Me.TableName = "Product_Join"
5984             Me.BeginInit
5985             Me.InitClass
5986             Me.EndInit
5987         End Sub
5988         
5989         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5990          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5991         Friend Sub New(ByVal table As Global.System.Data.DataTable)
5992             MyBase.New
5993             Me.TableName = table.TableName
5994             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
5995                 Me.CaseSensitive = table.CaseSensitive
5996             End If
5997             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
5998                 Me.Locale = table.Locale
5999             End If
6000             If (table.Namespace <> table.DataSet.Namespace) Then
6001                 Me.Namespace = table.Namespace
6002             End If
6003             Me.Prefix = table.Prefix
6004             Me.MinimumCapacity = table.MinimumCapacity
6005         End Sub
6006         
6007         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6008          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6009         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
6010             MyBase.New(info, context)
6011             Me.InitVars
6012         End Sub
6013         
6014         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6015          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6016         Public ReadOnly Property IdColumn() As Global.System.Data.DataColumn
6017             Get
6018                 Return Me.columnId
6019             End Get
6020         End Property
6021         
6022         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6023          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6024         Public ReadOnly Property ProductIDColumn() As Global.System.Data.DataColumn
6025             Get
6026                 Return Me.columnProductID
6027             End Get
6028         End Property
6029         
6030         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6031          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6032         Public ReadOnly Property PhotoColumn() As Global.System.Data.DataColumn
6033             Get
6034                 Return Me.columnPhoto
6035             End Get
6036         End Property
6037         
6038         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6039          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6040          Global.System.ComponentModel.Browsable(false)> _
6041         Public ReadOnly Property Count() As Integer
6042             Get
6043                 Return Me.Rows.Count
6044             End Get
6045         End Property
6046         
6047         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6048          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6049         Public Default ReadOnly Property Item(ByVal index As Integer) As Product_JoinRow
6050             Get
6051                 Return CType(Me.Rows(index),Product_JoinRow)
6052             End Get
6053         End Property
6054         
6055         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6056         Public Event Product_JoinRowChanging As Product_JoinRowChangeEventHandler
6057         
6058         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6059         Public Event Product_JoinRowChanged As Product_JoinRowChangeEventHandler
6060         
6061         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6062         Public Event Product_JoinRowDeleting As Product_JoinRowChangeEventHandler
6063         
6064         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6065         Public Event Product_JoinRowDeleted As Product_JoinRowChangeEventHandler
6066         
6067         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6068          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6069         Public Overloads Sub AddProduct_JoinRow(ByVal row As Product_JoinRow)
6070             Me.Rows.Add(row)
6071         End Sub
6072         
6073         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6074          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6075         Public Overloads Function AddProduct_JoinRow(ByVal parentProductRowByFK_Product_Join_Product As ProductRow, ByVal Photo() As Byte) As Product_JoinRow
6076             Dim rowProduct_JoinRow As Product_JoinRow = CType(Me.NewRow,Product_JoinRow)
6077             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Photo}
6078             If (Not (parentProductRowByFK_Product_Join_Product) Is Nothing) Then
6079                 columnValuesArray(1) = parentProductRowByFK_Product_Join_Product(0)
6080             End If
6081             rowProduct_JoinRow.ItemArray = columnValuesArray
6082             Me.Rows.Add(rowProduct_JoinRow)
6083             Return rowProduct_JoinRow
6084         End Function
6085         
6086         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6087          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6088         Public Function FindById(ByVal Id As Integer) As Product_JoinRow
6089             Return CType(Me.Rows.Find(New Object() {Id}),Product_JoinRow)
6090         End Function
6091         
6092         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6093          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6094         Public Overrides Function Clone() As Global.System.Data.DataTable
6095             Dim cln As Product_JoinDataTable = CType(MyBase.Clone,Product_JoinDataTable)
6096             cln.InitVars
6097             Return cln
6098         End Function
6099         
6100         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6101          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6102         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
6103             Return New Product_JoinDataTable()
6104         End Function
6105         
6106         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6107          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6108         Friend Sub InitVars()
6109             Me.columnId = MyBase.Columns("Id")
6110             Me.columnProductID = MyBase.Columns("ProductID")
6111             Me.columnPhoto = MyBase.Columns("Photo")
6112         End Sub
6113         
6114         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6115          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6116         Private Sub InitClass()
6117             Me.columnId = New Global.System.Data.DataColumn("Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6118             MyBase.Columns.Add(Me.columnId)
6119             Me.columnProductID = New Global.System.Data.DataColumn("ProductID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6120             MyBase.Columns.Add(Me.columnProductID)
6121             Me.columnPhoto = New Global.System.Data.DataColumn("Photo", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
6122             MyBase.Columns.Add(Me.columnPhoto)
6123             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true))
6124             Me.columnId.AutoIncrement = true
6125             Me.columnId.AutoIncrementSeed = -1
6126             Me.columnId.AutoIncrementStep = -1
6127             Me.columnId.AllowDBNull = false
6128             Me.columnId.ReadOnly = true
6129             Me.columnId.Unique = true
6130             Me.columnProductID.AllowDBNull = false
6131             Me.columnPhoto.AllowDBNull = false
6132         End Sub
6133         
6134         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6135          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6136         Public Function NewProduct_JoinRow() As Product_JoinRow
6137             Return CType(Me.NewRow,Product_JoinRow)
6138         End Function
6139         
6140         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6141          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6142         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
6143             Return New Product_JoinRow(builder)
6144         End Function
6145         
6146         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6147          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6148         Protected Overrides Function GetRowType() As Global.System.Type
6149             Return GetType(Product_JoinRow)
6150         End Function
6151         
6152         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6153          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6154         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6155             MyBase.OnRowChanged(e)
6156             If (Not (Me.Product_JoinRowChangedEvent) Is Nothing) Then
6157                 RaiseEvent Product_JoinRowChanged(Me, New Product_JoinRowChangeEvent(CType(e.Row,Product_JoinRow), e.Action))
6158             End If
6159         End Sub
6160         
6161         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6162          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6163         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6164             MyBase.OnRowChanging(e)
6165             If (Not (Me.Product_JoinRowChangingEvent) Is Nothing) Then
6166                 RaiseEvent Product_JoinRowChanging(Me, New Product_JoinRowChangeEvent(CType(e.Row,Product_JoinRow), e.Action))
6167             End If
6168         End Sub
6169         
6170         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6171          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6172         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6173             MyBase.OnRowDeleted(e)
6174             If (Not (Me.Product_JoinRowDeletedEvent) Is Nothing) Then
6175                 RaiseEvent Product_JoinRowDeleted(Me, New Product_JoinRowChangeEvent(CType(e.Row,Product_JoinRow), e.Action))
6176             End If
6177         End Sub
6178         
6179         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6180          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6181         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6182             MyBase.OnRowDeleting(e)
6183             If (Not (Me.Product_JoinRowDeletingEvent) Is Nothing) Then
6184                 RaiseEvent Product_JoinRowDeleting(Me, New Product_JoinRowChangeEvent(CType(e.Row,Product_JoinRow), e.Action))
6185             End If
6186         End Sub
6187         
6188         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6189          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6190         Public Sub RemoveProduct_JoinRow(ByVal row As Product_JoinRow)
6191             Me.Rows.Remove(row)
6192         End Sub
6193         
6194         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6195          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6196         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
6197             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
6198             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
6199             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
6200             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6201             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
6202             any1.MinOccurs = New Decimal(0)
6203             any1.MaxOccurs = Decimal.MaxValue
6204             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6205             sequence.Items.Add(any1)
6206             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6207             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
6208             any2.MinOccurs = New Decimal(1)
6209             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6210             sequence.Items.Add(any2)
6211             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
6212             attribute1.Name = "namespace"
6213             attribute1.FixedValue = ds.Namespace
6214             type.Attributes.Add(attribute1)
6215             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
6216             attribute2.Name = "tableTypeName"
6217             attribute2.FixedValue = "Product_JoinDataTable"
6218             type.Attributes.Add(attribute2)
6219             type.Particle = sequence
6220             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
6221             If xs.Contains(dsSchema.TargetNamespace) Then
6222                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
6223                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
6224                 Try
6225                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
6226                     dsSchema.Write(s1)
6227                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
6228                     Do While schemas.MoveNext
6229                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
6230                         s2.SetLength(0)
6231                         schema.Write(s2)
6232                         If (s1.Length = s2.Length) Then
6233                             s1.Position = 0
6234                             s2.Position = 0
6235                             
6236                             Do While ((s1.Position <> s1.Length) _
6237                                         AndAlso (s1.ReadByte = s2.ReadByte))
6238                                 
6239                                 
6240                             Loop
6241                             If (s1.Position = s1.Length) Then
6242                                 Return type
6243                             End If
6244                         End If
6245                         
6246                     Loop
6247                 Finally
6248                     If (Not (s1) Is Nothing) Then
6249                         s1.Close
6250                     End If
6251                     If (Not (s2) Is Nothing) Then
6252                         s2.Close
6253                     End If
6254                 End Try
6255             End If
6256             xs.Add(dsSchema)
6257             Return type
6258         End Function
6259     End Class
6260     
6261     '''<summary>
6262     '''Represents the strongly named DataTable class.
6263     '''</summary>
6264     <Global.System.Serializable(), _
6265      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
6266     Partial Public Class QuotationDataTable
6267         Inherits Global.System.Data.TypedTableBase(Of QuotationRow)
6268         
6269         Private columnQ_ID As Global.System.Data.DataColumn
6270         
6271         Private columnQuotationNo As Global.System.Data.DataColumn
6272         
6273         Private columnDate As Global.System.Data.DataColumn
6274         
6275         Private columnCustomerID As Global.System.Data.DataColumn
6276         
6277         Private columnGrandTotal As Global.System.Data.DataColumn
6278         
6279         Private columnRemarks As Global.System.Data.DataColumn
6280         
6281         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6282          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6283         Public Sub New()
6284             MyBase.New
6285             Me.TableName = "Quotation"
6286             Me.BeginInit
6287             Me.InitClass
6288             Me.EndInit
6289         End Sub
6290         
6291         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6292          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6293         Friend Sub New(ByVal table As Global.System.Data.DataTable)
6294             MyBase.New
6295             Me.TableName = table.TableName
6296             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
6297                 Me.CaseSensitive = table.CaseSensitive
6298             End If
6299             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
6300                 Me.Locale = table.Locale
6301             End If
6302             If (table.Namespace <> table.DataSet.Namespace) Then
6303                 Me.Namespace = table.Namespace
6304             End If
6305             Me.Prefix = table.Prefix
6306             Me.MinimumCapacity = table.MinimumCapacity
6307         End Sub
6308         
6309         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6310          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6311         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
6312             MyBase.New(info, context)
6313             Me.InitVars
6314         End Sub
6315         
6316         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6317          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6318         Public ReadOnly Property Q_IDColumn() As Global.System.Data.DataColumn
6319             Get
6320                 Return Me.columnQ_ID
6321             End Get
6322         End Property
6323         
6324         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6325          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6326         Public ReadOnly Property QuotationNoColumn() As Global.System.Data.DataColumn
6327             Get
6328                 Return Me.columnQuotationNo
6329             End Get
6330         End Property
6331         
6332         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6333          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6334         Public ReadOnly Property DateColumn() As Global.System.Data.DataColumn
6335             Get
6336                 Return Me.columnDate
6337             End Get
6338         End Property
6339         
6340         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6341          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6342         Public ReadOnly Property CustomerIDColumn() As Global.System.Data.DataColumn
6343             Get
6344                 Return Me.columnCustomerID
6345             End Get
6346         End Property
6347         
6348         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6349          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6350         Public ReadOnly Property GrandTotalColumn() As Global.System.Data.DataColumn
6351             Get
6352                 Return Me.columnGrandTotal
6353             End Get
6354         End Property
6355         
6356         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6357          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6358         Public ReadOnly Property RemarksColumn() As Global.System.Data.DataColumn
6359             Get
6360                 Return Me.columnRemarks
6361             End Get
6362         End Property
6363         
6364         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6365          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6366          Global.System.ComponentModel.Browsable(false)> _
6367         Public ReadOnly Property Count() As Integer
6368             Get
6369                 Return Me.Rows.Count
6370             End Get
6371         End Property
6372         
6373         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6374          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6375         Public Default ReadOnly Property Item(ByVal index As Integer) As QuotationRow
6376             Get
6377                 Return CType(Me.Rows(index),QuotationRow)
6378             End Get
6379         End Property
6380         
6381         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6382         Public Event QuotationRowChanging As QuotationRowChangeEventHandler
6383         
6384         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6385         Public Event QuotationRowChanged As QuotationRowChangeEventHandler
6386         
6387         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6388         Public Event QuotationRowDeleting As QuotationRowChangeEventHandler
6389         
6390         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6391         Public Event QuotationRowDeleted As QuotationRowChangeEventHandler
6392         
6393         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6394          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6395         Public Overloads Sub AddQuotationRow(ByVal row As QuotationRow)
6396             Me.Rows.Add(row)
6397         End Sub
6398         
6399         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6400          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6401         Public Overloads Function AddQuotationRow(ByVal Q_ID As Integer, ByVal QuotationNo As String, ByVal _Date As Date, ByVal parentCustomerRowByFK_Quotation_Customer As CustomerRow, ByVal GrandTotal As Decimal, ByVal Remarks As String) As QuotationRow
6402             Dim rowQuotationRow As QuotationRow = CType(Me.NewRow,QuotationRow)
6403             Dim columnValuesArray() As Object = New Object() {Q_ID, QuotationNo, _Date, Nothing, GrandTotal, Remarks}
6404             If (Not (parentCustomerRowByFK_Quotation_Customer) Is Nothing) Then
6405                 columnValuesArray(3) = parentCustomerRowByFK_Quotation_Customer(0)
6406             End If
6407             rowQuotationRow.ItemArray = columnValuesArray
6408             Me.Rows.Add(rowQuotationRow)
6409             Return rowQuotationRow
6410         End Function
6411         
6412         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6413          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6414         Public Function FindByQ_ID(ByVal Q_ID As Integer) As QuotationRow
6415             Return CType(Me.Rows.Find(New Object() {Q_ID}),QuotationRow)
6416         End Function
6417         
6418         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6419          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6420         Public Overrides Function Clone() As Global.System.Data.DataTable
6421             Dim cln As QuotationDataTable = CType(MyBase.Clone,QuotationDataTable)
6422             cln.InitVars
6423             Return cln
6424         End Function
6425         
6426         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6427          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6428         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
6429             Return New QuotationDataTable()
6430         End Function
6431         
6432         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6433          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6434         Friend Sub InitVars()
6435             Me.columnQ_ID = MyBase.Columns("Q_ID")
6436             Me.columnQuotationNo = MyBase.Columns("QuotationNo")
6437             Me.columnDate = MyBase.Columns("Date")
6438             Me.columnCustomerID = MyBase.Columns("CustomerID")
6439             Me.columnGrandTotal = MyBase.Columns("GrandTotal")
6440             Me.columnRemarks = MyBase.Columns("Remarks")
6441         End Sub
6442         
6443         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6444          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6445         Private Sub InitClass()
6446             Me.columnQ_ID = New Global.System.Data.DataColumn("Q_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6447             MyBase.Columns.Add(Me.columnQ_ID)
6448             Me.columnQuotationNo = New Global.System.Data.DataColumn("QuotationNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
6449             MyBase.Columns.Add(Me.columnQuotationNo)
6450             Me.columnDate = New Global.System.Data.DataColumn("Date", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
6451             Me.columnDate.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "DateColumn")
6452             Me.columnDate.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnDate")
6453             Me.columnDate.ExtendedProperties.Add("Generator_UserColumnName", "Date")
6454             MyBase.Columns.Add(Me.columnDate)
6455             Me.columnCustomerID = New Global.System.Data.DataColumn("CustomerID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6456             MyBase.Columns.Add(Me.columnCustomerID)
6457             Me.columnGrandTotal = New Global.System.Data.DataColumn("GrandTotal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6458             MyBase.Columns.Add(Me.columnGrandTotal)
6459             Me.columnRemarks = New Global.System.Data.DataColumn("Remarks", GetType(String), Nothing, Global.System.Data.MappingType.Element)
6460             MyBase.Columns.Add(Me.columnRemarks)
6461             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnQ_ID}, true))
6462             Me.columnQ_ID.AllowDBNull = false
6463             Me.columnQ_ID.Unique = true
6464             Me.columnQuotationNo.AllowDBNull = false
6465             Me.columnQuotationNo.MaxLength = 30
6466             Me.columnDate.AllowDBNull = false
6467             Me.columnCustomerID.AllowDBNull = false
6468             Me.columnGrandTotal.AllowDBNull = false
6469             Me.columnRemarks.MaxLength = 2147483647
6470         End Sub
6471         
6472         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6473          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6474         Public Function NewQuotationRow() As QuotationRow
6475             Return CType(Me.NewRow,QuotationRow)
6476         End Function
6477         
6478         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6479          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6480         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
6481             Return New QuotationRow(builder)
6482         End Function
6483         
6484         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6485          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6486         Protected Overrides Function GetRowType() As Global.System.Type
6487             Return GetType(QuotationRow)
6488         End Function
6489         
6490         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6491          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6492         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6493             MyBase.OnRowChanged(e)
6494             If (Not (Me.QuotationRowChangedEvent) Is Nothing) Then
6495                 RaiseEvent QuotationRowChanged(Me, New QuotationRowChangeEvent(CType(e.Row,QuotationRow), e.Action))
6496             End If
6497         End Sub
6498         
6499         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6500          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6501         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6502             MyBase.OnRowChanging(e)
6503             If (Not (Me.QuotationRowChangingEvent) Is Nothing) Then
6504                 RaiseEvent QuotationRowChanging(Me, New QuotationRowChangeEvent(CType(e.Row,QuotationRow), e.Action))
6505             End If
6506         End Sub
6507         
6508         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6509          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6510         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6511             MyBase.OnRowDeleted(e)
6512             If (Not (Me.QuotationRowDeletedEvent) Is Nothing) Then
6513                 RaiseEvent QuotationRowDeleted(Me, New QuotationRowChangeEvent(CType(e.Row,QuotationRow), e.Action))
6514             End If
6515         End Sub
6516         
6517         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6518          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6519         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6520             MyBase.OnRowDeleting(e)
6521             If (Not (Me.QuotationRowDeletingEvent) Is Nothing) Then
6522                 RaiseEvent QuotationRowDeleting(Me, New QuotationRowChangeEvent(CType(e.Row,QuotationRow), e.Action))
6523             End If
6524         End Sub
6525         
6526         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6527          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6528         Public Sub RemoveQuotationRow(ByVal row As QuotationRow)
6529             Me.Rows.Remove(row)
6530         End Sub
6531         
6532         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6533          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6534         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
6535             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
6536             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
6537             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
6538             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6539             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
6540             any1.MinOccurs = New Decimal(0)
6541             any1.MaxOccurs = Decimal.MaxValue
6542             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6543             sequence.Items.Add(any1)
6544             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6545             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
6546             any2.MinOccurs = New Decimal(1)
6547             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6548             sequence.Items.Add(any2)
6549             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
6550             attribute1.Name = "namespace"
6551             attribute1.FixedValue = ds.Namespace
6552             type.Attributes.Add(attribute1)
6553             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
6554             attribute2.Name = "tableTypeName"
6555             attribute2.FixedValue = "QuotationDataTable"
6556             type.Attributes.Add(attribute2)
6557             type.Particle = sequence
6558             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
6559             If xs.Contains(dsSchema.TargetNamespace) Then
6560                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
6561                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
6562                 Try
6563                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
6564                     dsSchema.Write(s1)
6565                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
6566                     Do While schemas.MoveNext
6567                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
6568                         s2.SetLength(0)
6569                         schema.Write(s2)
6570                         If (s1.Length = s2.Length) Then
6571                             s1.Position = 0
6572                             s2.Position = 0
6573                             
6574                             Do While ((s1.Position <> s1.Length) _
6575                                         AndAlso (s1.ReadByte = s2.ReadByte))
6576                                 
6577                                 
6578                             Loop
6579                             If (s1.Position = s1.Length) Then
6580                                 Return type
6581                             End If
6582                         End If
6583                         
6584                     Loop
6585                 Finally
6586                     If (Not (s1) Is Nothing) Then
6587                         s1.Close
6588                     End If
6589                     If (Not (s2) Is Nothing) Then
6590                         s2.Close
6591                     End If
6592                 End Try
6593             End If
6594             xs.Add(dsSchema)
6595             Return type
6596         End Function
6597     End Class
6598     
6599     '''<summary>
6600     '''Represents the strongly named DataTable class.
6601     '''</summary>
6602     <Global.System.Serializable(), _
6603      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
6604     Partial Public Class Quotation_JoinDataTable
6605         Inherits Global.System.Data.TypedTableBase(Of Quotation_JoinRow)
6606         
6607         Private columnQJ_ID As Global.System.Data.DataColumn
6608         
6609         Private columnQuotationID As Global.System.Data.DataColumn
6610         
6611         Private columnProductID As Global.System.Data.DataColumn
6612         
6613         Private columnCost As Global.System.Data.DataColumn
6614         
6615         Private columnQty As Global.System.Data.DataColumn
6616         
6617         Private columnAmount As Global.System.Data.DataColumn
6618         
6619         Private columnDiscountPer As Global.System.Data.DataColumn
6620         
6621         Private columnDiscount As Global.System.Data.DataColumn
6622         
6623         Private columnVATPer As Global.System.Data.DataColumn
6624         
6625         Private columnVAT As Global.System.Data.DataColumn
6626         
6627         Private columnTotalAmount As Global.System.Data.DataColumn
6628         
6629         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6630          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6631         Public Sub New()
6632             MyBase.New
6633             Me.TableName = "Quotation_Join"
6634             Me.BeginInit
6635             Me.InitClass
6636             Me.EndInit
6637         End Sub
6638         
6639         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6640          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6641         Friend Sub New(ByVal table As Global.System.Data.DataTable)
6642             MyBase.New
6643             Me.TableName = table.TableName
6644             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
6645                 Me.CaseSensitive = table.CaseSensitive
6646             End If
6647             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
6648                 Me.Locale = table.Locale
6649             End If
6650             If (table.Namespace <> table.DataSet.Namespace) Then
6651                 Me.Namespace = table.Namespace
6652             End If
6653             Me.Prefix = table.Prefix
6654             Me.MinimumCapacity = table.MinimumCapacity
6655         End Sub
6656         
6657         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6658          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6659         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
6660             MyBase.New(info, context)
6661             Me.InitVars
6662         End Sub
6663         
6664         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6665          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6666         Public ReadOnly Property QJ_IDColumn() As Global.System.Data.DataColumn
6667             Get
6668                 Return Me.columnQJ_ID
6669             End Get
6670         End Property
6671         
6672         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6673          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6674         Public ReadOnly Property QuotationIDColumn() As Global.System.Data.DataColumn
6675             Get
6676                 Return Me.columnQuotationID
6677             End Get
6678         End Property
6679         
6680         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6681          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6682         Public ReadOnly Property ProductIDColumn() As Global.System.Data.DataColumn
6683             Get
6684                 Return Me.columnProductID
6685             End Get
6686         End Property
6687         
6688         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6689          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6690         Public ReadOnly Property CostColumn() As Global.System.Data.DataColumn
6691             Get
6692                 Return Me.columnCost
6693             End Get
6694         End Property
6695         
6696         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6697          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6698         Public ReadOnly Property QtyColumn() As Global.System.Data.DataColumn
6699             Get
6700                 Return Me.columnQty
6701             End Get
6702         End Property
6703         
6704         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6705          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6706         Public ReadOnly Property AmountColumn() As Global.System.Data.DataColumn
6707             Get
6708                 Return Me.columnAmount
6709             End Get
6710         End Property
6711         
6712         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6713          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6714         Public ReadOnly Property DiscountPerColumn() As Global.System.Data.DataColumn
6715             Get
6716                 Return Me.columnDiscountPer
6717             End Get
6718         End Property
6719         
6720         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6721          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6722         Public ReadOnly Property DiscountColumn() As Global.System.Data.DataColumn
6723             Get
6724                 Return Me.columnDiscount
6725             End Get
6726         End Property
6727         
6728         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6729          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6730         Public ReadOnly Property VATPerColumn() As Global.System.Data.DataColumn
6731             Get
6732                 Return Me.columnVATPer
6733             End Get
6734         End Property
6735         
6736         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6737          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6738         Public ReadOnly Property VATColumn() As Global.System.Data.DataColumn
6739             Get
6740                 Return Me.columnVAT
6741             End Get
6742         End Property
6743         
6744         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6745          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6746         Public ReadOnly Property TotalAmountColumn() As Global.System.Data.DataColumn
6747             Get
6748                 Return Me.columnTotalAmount
6749             End Get
6750         End Property
6751         
6752         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6753          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6754          Global.System.ComponentModel.Browsable(false)> _
6755         Public ReadOnly Property Count() As Integer
6756             Get
6757                 Return Me.Rows.Count
6758             End Get
6759         End Property
6760         
6761         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6762          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6763         Public Default ReadOnly Property Item(ByVal index As Integer) As Quotation_JoinRow
6764             Get
6765                 Return CType(Me.Rows(index),Quotation_JoinRow)
6766             End Get
6767         End Property
6768         
6769         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6770         Public Event Quotation_JoinRowChanging As Quotation_JoinRowChangeEventHandler
6771         
6772         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6773         Public Event Quotation_JoinRowChanged As Quotation_JoinRowChangeEventHandler
6774         
6775         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6776         Public Event Quotation_JoinRowDeleting As Quotation_JoinRowChangeEventHandler
6777         
6778         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6779         Public Event Quotation_JoinRowDeleted As Quotation_JoinRowChangeEventHandler
6780         
6781         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6782          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6783         Public Overloads Sub AddQuotation_JoinRow(ByVal row As Quotation_JoinRow)
6784             Me.Rows.Add(row)
6785         End Sub
6786         
6787         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6788          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6789         Public Overloads Function AddQuotation_JoinRow(ByVal parentQuotationRowByFK_Quotation_Join_Quotation As QuotationRow, ByVal parentProductRowByFK_Quotation_Join_Product As ProductRow, ByVal Cost As Decimal, ByVal Qty As Integer, ByVal Amount As Decimal, ByVal DiscountPer As Decimal, ByVal Discount As Decimal, ByVal VATPer As Decimal, ByVal VAT As Decimal, ByVal TotalAmount As Decimal) As Quotation_JoinRow
6790             Dim rowQuotation_JoinRow As Quotation_JoinRow = CType(Me.NewRow,Quotation_JoinRow)
6791             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, Cost, Qty, Amount, DiscountPer, Discount, VATPer, VAT, TotalAmount}
6792             If (Not (parentQuotationRowByFK_Quotation_Join_Quotation) Is Nothing) Then
6793                 columnValuesArray(1) = parentQuotationRowByFK_Quotation_Join_Quotation(0)
6794             End If
6795             If (Not (parentProductRowByFK_Quotation_Join_Product) Is Nothing) Then
6796                 columnValuesArray(2) = parentProductRowByFK_Quotation_Join_Product(0)
6797             End If
6798             rowQuotation_JoinRow.ItemArray = columnValuesArray
6799             Me.Rows.Add(rowQuotation_JoinRow)
6800             Return rowQuotation_JoinRow
6801         End Function
6802         
6803         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6804          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6805         Public Function FindByQJ_ID(ByVal QJ_ID As Integer) As Quotation_JoinRow
6806             Return CType(Me.Rows.Find(New Object() {QJ_ID}),Quotation_JoinRow)
6807         End Function
6808         
6809         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6810          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6811         Public Overrides Function Clone() As Global.System.Data.DataTable
6812             Dim cln As Quotation_JoinDataTable = CType(MyBase.Clone,Quotation_JoinDataTable)
6813             cln.InitVars
6814             Return cln
6815         End Function
6816         
6817         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6818          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6819         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
6820             Return New Quotation_JoinDataTable()
6821         End Function
6822         
6823         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6824          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6825         Friend Sub InitVars()
6826             Me.columnQJ_ID = MyBase.Columns("QJ_ID")
6827             Me.columnQuotationID = MyBase.Columns("QuotationID")
6828             Me.columnProductID = MyBase.Columns("ProductID")
6829             Me.columnCost = MyBase.Columns("Cost")
6830             Me.columnQty = MyBase.Columns("Qty")
6831             Me.columnAmount = MyBase.Columns("Amount")
6832             Me.columnDiscountPer = MyBase.Columns("DiscountPer")
6833             Me.columnDiscount = MyBase.Columns("Discount")
6834             Me.columnVATPer = MyBase.Columns("VATPer")
6835             Me.columnVAT = MyBase.Columns("VAT")
6836             Me.columnTotalAmount = MyBase.Columns("TotalAmount")
6837         End Sub
6838         
6839         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6840          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6841         Private Sub InitClass()
6842             Me.columnQJ_ID = New Global.System.Data.DataColumn("QJ_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6843             MyBase.Columns.Add(Me.columnQJ_ID)
6844             Me.columnQuotationID = New Global.System.Data.DataColumn("QuotationID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6845             MyBase.Columns.Add(Me.columnQuotationID)
6846             Me.columnProductID = New Global.System.Data.DataColumn("ProductID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6847             MyBase.Columns.Add(Me.columnProductID)
6848             Me.columnCost = New Global.System.Data.DataColumn("Cost", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6849             MyBase.Columns.Add(Me.columnCost)
6850             Me.columnQty = New Global.System.Data.DataColumn("Qty", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6851             MyBase.Columns.Add(Me.columnQty)
6852             Me.columnAmount = New Global.System.Data.DataColumn("Amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6853             MyBase.Columns.Add(Me.columnAmount)
6854             Me.columnDiscountPer = New Global.System.Data.DataColumn("DiscountPer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6855             MyBase.Columns.Add(Me.columnDiscountPer)
6856             Me.columnDiscount = New Global.System.Data.DataColumn("Discount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6857             MyBase.Columns.Add(Me.columnDiscount)
6858             Me.columnVATPer = New Global.System.Data.DataColumn("VATPer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6859             MyBase.Columns.Add(Me.columnVATPer)
6860             Me.columnVAT = New Global.System.Data.DataColumn("VAT", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6861             MyBase.Columns.Add(Me.columnVAT)
6862             Me.columnTotalAmount = New Global.System.Data.DataColumn("TotalAmount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6863             MyBase.Columns.Add(Me.columnTotalAmount)
6864             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnQJ_ID}, true))
6865             Me.columnQJ_ID.AutoIncrement = true
6866             Me.columnQJ_ID.AutoIncrementSeed = -1
6867             Me.columnQJ_ID.AutoIncrementStep = -1
6868             Me.columnQJ_ID.AllowDBNull = false
6869             Me.columnQJ_ID.ReadOnly = true
6870             Me.columnQJ_ID.Unique = true
6871             Me.columnQuotationID.AllowDBNull = false
6872             Me.columnProductID.AllowDBNull = false
6873             Me.columnCost.AllowDBNull = false
6874             Me.columnQty.AllowDBNull = false
6875             Me.columnAmount.AllowDBNull = false
6876             Me.columnDiscountPer.AllowDBNull = false
6877             Me.columnDiscount.AllowDBNull = false
6878             Me.columnVATPer.AllowDBNull = false
6879             Me.columnVAT.AllowDBNull = false
6880             Me.columnTotalAmount.AllowDBNull = false
6881         End Sub
6882         
6883         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6884          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6885         Public Function NewQuotation_JoinRow() As Quotation_JoinRow
6886             Return CType(Me.NewRow,Quotation_JoinRow)
6887         End Function
6888         
6889         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6890          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6891         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
6892             Return New Quotation_JoinRow(builder)
6893         End Function
6894         
6895         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6896          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6897         Protected Overrides Function GetRowType() As Global.System.Type
6898             Return GetType(Quotation_JoinRow)
6899         End Function
6900         
6901         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6902          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6903         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6904             MyBase.OnRowChanged(e)
6905             If (Not (Me.Quotation_JoinRowChangedEvent) Is Nothing) Then
6906                 RaiseEvent Quotation_JoinRowChanged(Me, New Quotation_JoinRowChangeEvent(CType(e.Row,Quotation_JoinRow), e.Action))
6907             End If
6908         End Sub
6909         
6910         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6911          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6912         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6913             MyBase.OnRowChanging(e)
6914             If (Not (Me.Quotation_JoinRowChangingEvent) Is Nothing) Then
6915                 RaiseEvent Quotation_JoinRowChanging(Me, New Quotation_JoinRowChangeEvent(CType(e.Row,Quotation_JoinRow), e.Action))
6916             End If
6917         End Sub
6918         
6919         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6920          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6921         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6922             MyBase.OnRowDeleted(e)
6923             If (Not (Me.Quotation_JoinRowDeletedEvent) Is Nothing) Then
6924                 RaiseEvent Quotation_JoinRowDeleted(Me, New Quotation_JoinRowChangeEvent(CType(e.Row,Quotation_JoinRow), e.Action))
6925             End If
6926         End Sub
6927         
6928         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6929          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6930         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6931             MyBase.OnRowDeleting(e)
6932             If (Not (Me.Quotation_JoinRowDeletingEvent) Is Nothing) Then
6933                 RaiseEvent Quotation_JoinRowDeleting(Me, New Quotation_JoinRowChangeEvent(CType(e.Row,Quotation_JoinRow), e.Action))
6934             End If
6935         End Sub
6936         
6937         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6938          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6939         Public Sub RemoveQuotation_JoinRow(ByVal row As Quotation_JoinRow)
6940             Me.Rows.Remove(row)
6941         End Sub
6942         
6943         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6944          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6945         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
6946             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
6947             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
6948             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
6949             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6950             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
6951             any1.MinOccurs = New Decimal(0)
6952             any1.MaxOccurs = Decimal.MaxValue
6953             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6954             sequence.Items.Add(any1)
6955             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6956             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
6957             any2.MinOccurs = New Decimal(1)
6958             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6959             sequence.Items.Add(any2)
6960             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
6961             attribute1.Name = "namespace"
6962             attribute1.FixedValue = ds.Namespace
6963             type.Attributes.Add(attribute1)
6964             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
6965             attribute2.Name = "tableTypeName"
6966             attribute2.FixedValue = "Quotation_JoinDataTable"
6967             type.Attributes.Add(attribute2)
6968             type.Particle = sequence
6969             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
6970             If xs.Contains(dsSchema.TargetNamespace) Then
6971                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
6972                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
6973                 Try
6974                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
6975                     dsSchema.Write(s1)
6976                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
6977                     Do While schemas.MoveNext
6978                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
6979                         s2.SetLength(0)
6980                         schema.Write(s2)
6981                         If (s1.Length = s2.Length) Then
6982                             s1.Position = 0
6983                             s2.Position = 0
6984                             
6985                             Do While ((s1.Position <> s1.Length) _
6986                                         AndAlso (s1.ReadByte = s2.ReadByte))
6987                                 
6988                                 
6989                             Loop
6990                             If (s1.Position = s1.Length) Then
6991                                 Return type
6992                             End If
6993                         End If
6994                         
6995                     Loop
6996                 Finally
6997                     If (Not (s1) Is Nothing) Then
6998                         s1.Close
6999                     End If
7000                     If (Not (s2) Is Nothing) Then
7001                         s2.Close
7002                     End If
7003                 End Try
7004             End If
7005             xs.Add(dsSchema)
7006             Return type
7007         End Function
7008     End Class
7009     
7010     '''<summary>
7011     '''Represents the strongly named DataTable class.
7012     '''</summary>
7013     <Global.System.Serializable(), _
7014      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
7015     Partial Public Class RegistrationDataTable
7016         Inherits Global.System.Data.TypedTableBase(Of RegistrationRow)
7017         
7018         Private columnUserID As Global.System.Data.DataColumn
7019         
7020         Private columnUserType As Global.System.Data.DataColumn
7021         
7022         Private columnPassword As Global.System.Data.DataColumn
7023         
7024         Private columnName As Global.System.Data.DataColumn
7025         
7026         Private columnContactNo As Global.System.Data.DataColumn
7027         
7028         Private columnEmailID As Global.System.Data.DataColumn
7029         
7030         Private columnJoiningDate As Global.System.Data.DataColumn
7031         
7032         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7033          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7034         Public Sub New()
7035             MyBase.New
7036             Me.TableName = "Registration"
7037             Me.BeginInit
7038             Me.InitClass
7039             Me.EndInit
7040         End Sub
7041         
7042         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7043          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7044         Friend Sub New(ByVal table As Global.System.Data.DataTable)
7045             MyBase.New
7046             Me.TableName = table.TableName
7047             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
7048                 Me.CaseSensitive = table.CaseSensitive
7049             End If
7050             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
7051                 Me.Locale = table.Locale
7052             End If
7053             If (table.Namespace <> table.DataSet.Namespace) Then
7054                 Me.Namespace = table.Namespace
7055             End If
7056             Me.Prefix = table.Prefix
7057             Me.MinimumCapacity = table.MinimumCapacity
7058         End Sub
7059         
7060         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7061          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7062         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
7063             MyBase.New(info, context)
7064             Me.InitVars
7065         End Sub
7066         
7067         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7068          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7069         Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
7070             Get
7071                 Return Me.columnUserID
7072             End Get
7073         End Property
7074         
7075         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7076          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7077         Public ReadOnly Property UserTypeColumn() As Global.System.Data.DataColumn
7078             Get
7079                 Return Me.columnUserType
7080             End Get
7081         End Property
7082         
7083         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7084          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7085         Public ReadOnly Property PasswordColumn() As Global.System.Data.DataColumn
7086             Get
7087                 Return Me.columnPassword
7088             End Get
7089         End Property
7090         
7091         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7092          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7093         Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn
7094             Get
7095                 Return Me.columnName
7096             End Get
7097         End Property
7098         
7099         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7100          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7101         Public ReadOnly Property ContactNoColumn() As Global.System.Data.DataColumn
7102             Get
7103                 Return Me.columnContactNo
7104             End Get
7105         End Property
7106         
7107         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7108          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7109         Public ReadOnly Property EmailIDColumn() As Global.System.Data.DataColumn
7110             Get
7111                 Return Me.columnEmailID
7112             End Get
7113         End Property
7114         
7115         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7116          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7117         Public ReadOnly Property JoiningDateColumn() As Global.System.Data.DataColumn
7118             Get
7119                 Return Me.columnJoiningDate
7120             End Get
7121         End Property
7122         
7123         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7124          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
7125          Global.System.ComponentModel.Browsable(false)> _
7126         Public ReadOnly Property Count() As Integer
7127             Get
7128                 Return Me.Rows.Count
7129             End Get
7130         End Property
7131         
7132         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7133          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7134         Public Default ReadOnly Property Item(ByVal index As Integer) As RegistrationRow
7135             Get
7136                 Return CType(Me.Rows(index),RegistrationRow)
7137             End Get
7138         End Property
7139         
7140         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7141         Public Event RegistrationRowChanging As RegistrationRowChangeEventHandler
7142         
7143         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7144         Public Event RegistrationRowChanged As RegistrationRowChangeEventHandler
7145         
7146         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7147         Public Event RegistrationRowDeleting As RegistrationRowChangeEventHandler
7148         
7149         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7150         Public Event RegistrationRowDeleted As RegistrationRowChangeEventHandler
7151         
7152         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7153          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7154         Public Overloads Sub AddRegistrationRow(ByVal row As RegistrationRow)
7155             Me.Rows.Add(row)
7156         End Sub
7157         
7158         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7159          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7160         Public Overloads Function AddRegistrationRow(ByVal UserID As String, ByVal UserType As String, ByVal Password As String, ByVal Name As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal JoiningDate As Date) As RegistrationRow
7161             Dim rowRegistrationRow As RegistrationRow = CType(Me.NewRow,RegistrationRow)
7162             Dim columnValuesArray() As Object = New Object() {UserID, UserType, Password, Name, ContactNo, EmailID, JoiningDate}
7163             rowRegistrationRow.ItemArray = columnValuesArray
7164             Me.Rows.Add(rowRegistrationRow)
7165             Return rowRegistrationRow
7166         End Function
7167         
7168         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7169          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7170         Public Function FindByUserID(ByVal UserID As String) As RegistrationRow
7171             Return CType(Me.Rows.Find(New Object() {UserID}),RegistrationRow)
7172         End Function
7173         
7174         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7175          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7176         Public Overrides Function Clone() As Global.System.Data.DataTable
7177             Dim cln As RegistrationDataTable = CType(MyBase.Clone,RegistrationDataTable)
7178             cln.InitVars
7179             Return cln
7180         End Function
7181         
7182         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7183          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7184         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
7185             Return New RegistrationDataTable()
7186         End Function
7187         
7188         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7189          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7190         Friend Sub InitVars()
7191             Me.columnUserID = MyBase.Columns("UserID")
7192             Me.columnUserType = MyBase.Columns("UserType")
7193             Me.columnPassword = MyBase.Columns("Password")
7194             Me.columnName = MyBase.Columns("Name")
7195             Me.columnContactNo = MyBase.Columns("ContactNo")
7196             Me.columnEmailID = MyBase.Columns("EmailID")
7197             Me.columnJoiningDate = MyBase.Columns("JoiningDate")
7198         End Sub
7199         
7200         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7201          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7202         Private Sub InitClass()
7203             Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7204             MyBase.Columns.Add(Me.columnUserID)
7205             Me.columnUserType = New Global.System.Data.DataColumn("UserType", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7206             MyBase.Columns.Add(Me.columnUserType)
7207             Me.columnPassword = New Global.System.Data.DataColumn("Password", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7208             MyBase.Columns.Add(Me.columnPassword)
7209             Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7210             MyBase.Columns.Add(Me.columnName)
7211             Me.columnContactNo = New Global.System.Data.DataColumn("ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7212             MyBase.Columns.Add(Me.columnContactNo)
7213             Me.columnEmailID = New Global.System.Data.DataColumn("EmailID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7214             MyBase.Columns.Add(Me.columnEmailID)
7215             Me.columnJoiningDate = New Global.System.Data.DataColumn("JoiningDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
7216             MyBase.Columns.Add(Me.columnJoiningDate)
7217             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUserID}, true))
7218             Me.columnUserID.AllowDBNull = false
7219             Me.columnUserID.Unique = true
7220             Me.columnUserID.MaxLength = 100
7221             Me.columnUserType.AllowDBNull = false
7222             Me.columnUserType.MaxLength = 150
7223             Me.columnPassword.AllowDBNull = false
7224             Me.columnPassword.MaxLength = 100
7225             Me.columnName.AllowDBNull = false
7226             Me.columnName.MaxLength = 200
7227             Me.columnContactNo.AllowDBNull = false
7228             Me.columnContactNo.MaxLength = 150
7229             Me.columnEmailID.MaxLength = 200
7230         End Sub
7231         
7232         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7233          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7234         Public Function NewRegistrationRow() As RegistrationRow
7235             Return CType(Me.NewRow,RegistrationRow)
7236         End Function
7237         
7238         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7239          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7240         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
7241             Return New RegistrationRow(builder)
7242         End Function
7243         
7244         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7245          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7246         Protected Overrides Function GetRowType() As Global.System.Type
7247             Return GetType(RegistrationRow)
7248         End Function
7249         
7250         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7251          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7252         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7253             MyBase.OnRowChanged(e)
7254             If (Not (Me.RegistrationRowChangedEvent) Is Nothing) Then
7255                 RaiseEvent RegistrationRowChanged(Me, New RegistrationRowChangeEvent(CType(e.Row,RegistrationRow), e.Action))
7256             End If
7257         End Sub
7258         
7259         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7260          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7261         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7262             MyBase.OnRowChanging(e)
7263             If (Not (Me.RegistrationRowChangingEvent) Is Nothing) Then
7264                 RaiseEvent RegistrationRowChanging(Me, New RegistrationRowChangeEvent(CType(e.Row,RegistrationRow), e.Action))
7265             End If
7266         End Sub
7267         
7268         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7269          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7270         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7271             MyBase.OnRowDeleted(e)
7272             If (Not (Me.RegistrationRowDeletedEvent) Is Nothing) Then
7273                 RaiseEvent RegistrationRowDeleted(Me, New RegistrationRowChangeEvent(CType(e.Row,RegistrationRow), e.Action))
7274             End If
7275         End Sub
7276         
7277         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7278          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7279         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7280             MyBase.OnRowDeleting(e)
7281             If (Not (Me.RegistrationRowDeletingEvent) Is Nothing) Then
7282                 RaiseEvent RegistrationRowDeleting(Me, New RegistrationRowChangeEvent(CType(e.Row,RegistrationRow), e.Action))
7283             End If
7284         End Sub
7285         
7286         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7287          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7288         Public Sub RemoveRegistrationRow(ByVal row As RegistrationRow)
7289             Me.Rows.Remove(row)
7290         End Sub
7291         
7292         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7293          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7294         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
7295             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
7296             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
7297             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
7298             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
7299             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
7300             any1.MinOccurs = New Decimal(0)
7301             any1.MaxOccurs = Decimal.MaxValue
7302             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
7303             sequence.Items.Add(any1)
7304             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
7305             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
7306             any2.MinOccurs = New Decimal(1)
7307             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
7308             sequence.Items.Add(any2)
7309             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
7310             attribute1.Name = "namespace"
7311             attribute1.FixedValue = ds.Namespace
7312             type.Attributes.Add(attribute1)
7313             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
7314             attribute2.Name = "tableTypeName"
7315             attribute2.FixedValue = "RegistrationDataTable"
7316             type.Attributes.Add(attribute2)
7317             type.Particle = sequence
7318             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
7319             If xs.Contains(dsSchema.TargetNamespace) Then
7320                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7321                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7322                 Try
7323                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
7324                     dsSchema.Write(s1)
7325                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
7326                     Do While schemas.MoveNext
7327                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
7328                         s2.SetLength(0)
7329                         schema.Write(s2)
7330                         If (s1.Length = s2.Length) Then
7331                             s1.Position = 0
7332                             s2.Position = 0
7333                             
7334                             Do While ((s1.Position <> s1.Length) _
7335                                         AndAlso (s1.ReadByte = s2.ReadByte))
7336                                 
7337                                 
7338                             Loop
7339                             If (s1.Position = s1.Length) Then
7340                                 Return type
7341                             End If
7342                         End If
7343                         
7344                     Loop
7345                 Finally
7346                     If (Not (s1) Is Nothing) Then
7347                         s1.Close
7348                     End If
7349                     If (Not (s2) Is Nothing) Then
7350                         s2.Close
7351                     End If
7352                 End Try
7353             End If
7354             xs.Add(dsSchema)
7355             Return type
7356         End Function
7357     End Class
7358     
7359     '''<summary>
7360     '''Represents the strongly named DataTable class.
7361     '''</summary>
7362     <Global.System.Serializable(), _
7363      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
7364     Partial Public Class ServiceDataTable
7365         Inherits Global.System.Data.TypedTableBase(Of ServiceRow)
7366         
7367         Private columnS_ID As Global.System.Data.DataColumn
7368         
7369         Private columnServiceCode As Global.System.Data.DataColumn
7370         
7371         Private columnCustomerID As Global.System.Data.DataColumn
7372         
7373         Private columnServiceType As Global.System.Data.DataColumn
7374         
7375         Private columnServiceCreationDate As Global.System.Data.DataColumn
7376         
7377         Private columnItemDescription As Global.System.Data.DataColumn
7378         
7379         Private columnProblemDescription As Global.System.Data.DataColumn
7380         
7381         Private columnChargesQuote As Global.System.Data.DataColumn
7382         
7383         Private columnAdvanceDeposit As Global.System.Data.DataColumn
7384         
7385         Private columnEstimatedRepairDate As Global.System.Data.DataColumn
7386         
7387         Private columnRemarks As Global.System.Data.DataColumn
7388         
7389         Private columnStatus As Global.System.Data.DataColumn
7390         
7391         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7392          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7393         Public Sub New()
7394             MyBase.New
7395             Me.TableName = "Service"
7396             Me.BeginInit
7397             Me.InitClass
7398             Me.EndInit
7399         End Sub
7400         
7401         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7402          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7403         Friend Sub New(ByVal table As Global.System.Data.DataTable)
7404             MyBase.New
7405             Me.TableName = table.TableName
7406             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
7407                 Me.CaseSensitive = table.CaseSensitive
7408             End If
7409             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
7410                 Me.Locale = table.Locale
7411             End If
7412             If (table.Namespace <> table.DataSet.Namespace) Then
7413                 Me.Namespace = table.Namespace
7414             End If
7415             Me.Prefix = table.Prefix
7416             Me.MinimumCapacity = table.MinimumCapacity
7417         End Sub
7418         
7419         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7420          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7421         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
7422             MyBase.New(info, context)
7423             Me.InitVars
7424         End Sub
7425         
7426         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7427          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7428         Public ReadOnly Property S_IDColumn() As Global.System.Data.DataColumn
7429             Get
7430                 Return Me.columnS_ID
7431             End Get
7432         End Property
7433         
7434         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7435          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7436         Public ReadOnly Property ServiceCodeColumn() As Global.System.Data.DataColumn
7437             Get
7438                 Return Me.columnServiceCode
7439             End Get
7440         End Property
7441         
7442         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7443          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7444         Public ReadOnly Property CustomerIDColumn() As Global.System.Data.DataColumn
7445             Get
7446                 Return Me.columnCustomerID
7447             End Get
7448         End Property
7449         
7450         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7451          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7452         Public ReadOnly Property ServiceTypeColumn() As Global.System.Data.DataColumn
7453             Get
7454                 Return Me.columnServiceType
7455             End Get
7456         End Property
7457         
7458         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7459          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7460         Public ReadOnly Property ServiceCreationDateColumn() As Global.System.Data.DataColumn
7461             Get
7462                 Return Me.columnServiceCreationDate
7463             End Get
7464         End Property
7465         
7466         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7467          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7468         Public ReadOnly Property ItemDescriptionColumn() As Global.System.Data.DataColumn
7469             Get
7470                 Return Me.columnItemDescription
7471             End Get
7472         End Property
7473         
7474         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7475          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7476         Public ReadOnly Property ProblemDescriptionColumn() As Global.System.Data.DataColumn
7477             Get
7478                 Return Me.columnProblemDescription
7479             End Get
7480         End Property
7481         
7482         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7483          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7484         Public ReadOnly Property ChargesQuoteColumn() As Global.System.Data.DataColumn
7485             Get
7486                 Return Me.columnChargesQuote
7487             End Get
7488         End Property
7489         
7490         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7491          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7492         Public ReadOnly Property AdvanceDepositColumn() As Global.System.Data.DataColumn
7493             Get
7494                 Return Me.columnAdvanceDeposit
7495             End Get
7496         End Property
7497         
7498         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7499          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7500         Public ReadOnly Property EstimatedRepairDateColumn() As Global.System.Data.DataColumn
7501             Get
7502                 Return Me.columnEstimatedRepairDate
7503             End Get
7504         End Property
7505         
7506         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7507          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7508         Public ReadOnly Property RemarksColumn() As Global.System.Data.DataColumn
7509             Get
7510                 Return Me.columnRemarks
7511             End Get
7512         End Property
7513         
7514         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7515          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7516         Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn
7517             Get
7518                 Return Me.columnStatus
7519             End Get
7520         End Property
7521         
7522         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7523          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
7524          Global.System.ComponentModel.Browsable(false)> _
7525         Public ReadOnly Property Count() As Integer
7526             Get
7527                 Return Me.Rows.Count
7528             End Get
7529         End Property
7530         
7531         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7532          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7533         Public Default ReadOnly Property Item(ByVal index As Integer) As ServiceRow
7534             Get
7535                 Return CType(Me.Rows(index),ServiceRow)
7536             End Get
7537         End Property
7538         
7539         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7540         Public Event ServiceRowChanging As ServiceRowChangeEventHandler
7541         
7542         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7543         Public Event ServiceRowChanged As ServiceRowChangeEventHandler
7544         
7545         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7546         Public Event ServiceRowDeleting As ServiceRowChangeEventHandler
7547         
7548         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7549         Public Event ServiceRowDeleted As ServiceRowChangeEventHandler
7550         
7551         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7552          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7553         Public Overloads Sub AddServiceRow(ByVal row As ServiceRow)
7554             Me.Rows.Add(row)
7555         End Sub
7556         
7557         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7558          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7559         Public Overloads Function AddServiceRow(ByVal S_ID As Integer, ByVal ServiceCode As String, ByVal parentCustomerRowByFK_Service_Customer As CustomerRow, ByVal ServiceType As String, ByVal ServiceCreationDate As Date, ByVal ItemDescription As String, ByVal ProblemDescription As String, ByVal ChargesQuote As Decimal, ByVal AdvanceDeposit As Decimal, ByVal EstimatedRepairDate As Date, ByVal Remarks As String, ByVal Status As String) As ServiceRow
7560             Dim rowServiceRow As ServiceRow = CType(Me.NewRow,ServiceRow)
7561             Dim columnValuesArray() As Object = New Object() {S_ID, ServiceCode, Nothing, ServiceType, ServiceCreationDate, ItemDescription, ProblemDescription, ChargesQuote, AdvanceDeposit, EstimatedRepairDate, Remarks, Status}
7562             If (Not (parentCustomerRowByFK_Service_Customer) Is Nothing) Then
7563                 columnValuesArray(2) = parentCustomerRowByFK_Service_Customer(0)
7564             End If
7565             rowServiceRow.ItemArray = columnValuesArray
7566             Me.Rows.Add(rowServiceRow)
7567             Return rowServiceRow
7568         End Function
7569         
7570         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7571          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7572         Public Function FindByS_ID(ByVal S_ID As Integer) As ServiceRow
7573             Return CType(Me.Rows.Find(New Object() {S_ID}),ServiceRow)
7574         End Function
7575         
7576         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7577          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7578         Public Overrides Function Clone() As Global.System.Data.DataTable
7579             Dim cln As ServiceDataTable = CType(MyBase.Clone,ServiceDataTable)
7580             cln.InitVars
7581             Return cln
7582         End Function
7583         
7584         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7585          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7586         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
7587             Return New ServiceDataTable()
7588         End Function
7589         
7590         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7591          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7592         Friend Sub InitVars()
7593             Me.columnS_ID = MyBase.Columns("S_ID")
7594             Me.columnServiceCode = MyBase.Columns("ServiceCode")
7595             Me.columnCustomerID = MyBase.Columns("CustomerID")
7596             Me.columnServiceType = MyBase.Columns("ServiceType")
7597             Me.columnServiceCreationDate = MyBase.Columns("ServiceCreationDate")
7598             Me.columnItemDescription = MyBase.Columns("ItemDescription")
7599             Me.columnProblemDescription = MyBase.Columns("ProblemDescription")
7600             Me.columnChargesQuote = MyBase.Columns("ChargesQuote")
7601             Me.columnAdvanceDeposit = MyBase.Columns("AdvanceDeposit")
7602             Me.columnEstimatedRepairDate = MyBase.Columns("EstimatedRepairDate")
7603             Me.columnRemarks = MyBase.Columns("Remarks")
7604             Me.columnStatus = MyBase.Columns("Status")
7605         End Sub
7606         
7607         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7608          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7609         Private Sub InitClass()
7610             Me.columnS_ID = New Global.System.Data.DataColumn("S_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
7611             MyBase.Columns.Add(Me.columnS_ID)
7612             Me.columnServiceCode = New Global.System.Data.DataColumn("ServiceCode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7613             MyBase.Columns.Add(Me.columnServiceCode)
7614             Me.columnCustomerID = New Global.System.Data.DataColumn("CustomerID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
7615             MyBase.Columns.Add(Me.columnCustomerID)
7616             Me.columnServiceType = New Global.System.Data.DataColumn("ServiceType", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7617             MyBase.Columns.Add(Me.columnServiceType)
7618             Me.columnServiceCreationDate = New Global.System.Data.DataColumn("ServiceCreationDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
7619             MyBase.Columns.Add(Me.columnServiceCreationDate)
7620             Me.columnItemDescription = New Global.System.Data.DataColumn("ItemDescription", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7621             MyBase.Columns.Add(Me.columnItemDescription)
7622             Me.columnProblemDescription = New Global.System.Data.DataColumn("ProblemDescription", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7623             MyBase.Columns.Add(Me.columnProblemDescription)
7624             Me.columnChargesQuote = New Global.System.Data.DataColumn("ChargesQuote", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
7625             MyBase.Columns.Add(Me.columnChargesQuote)
7626             Me.columnAdvanceDeposit = New Global.System.Data.DataColumn("AdvanceDeposit", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
7627             MyBase.Columns.Add(Me.columnAdvanceDeposit)
7628             Me.columnEstimatedRepairDate = New Global.System.Data.DataColumn("EstimatedRepairDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
7629             MyBase.Columns.Add(Me.columnEstimatedRepairDate)
7630             Me.columnRemarks = New Global.System.Data.DataColumn("Remarks", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7631             MyBase.Columns.Add(Me.columnRemarks)
7632             Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7633             MyBase.Columns.Add(Me.columnStatus)
7634             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnS_ID}, true))
7635             Me.columnS_ID.AllowDBNull = false
7636             Me.columnS_ID.Unique = true
7637             Me.columnServiceCode.AllowDBNull = false
7638             Me.columnServiceCode.MaxLength = 30
7639             Me.columnCustomerID.AllowDBNull = false
7640             Me.columnServiceType.MaxLength = 150
7641             Me.columnServiceCreationDate.AllowDBNull = false
7642             Me.columnItemDescription.AllowDBNull = false
7643             Me.columnItemDescription.MaxLength = 2147483647
7644             Me.columnProblemDescription.MaxLength = 2147483647
7645             Me.columnChargesQuote.AllowDBNull = false
7646             Me.columnAdvanceDeposit.AllowDBNull = false
7647             Me.columnEstimatedRepairDate.AllowDBNull = false
7648             Me.columnRemarks.MaxLength = 2147483647
7649             Me.columnStatus.AllowDBNull = false
7650             Me.columnStatus.MaxLength = 30
7651         End Sub
7652         
7653         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7654          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7655         Public Function NewServiceRow() As ServiceRow
7656             Return CType(Me.NewRow,ServiceRow)
7657         End Function
7658         
7659         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7660          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7661         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
7662             Return New ServiceRow(builder)
7663         End Function
7664         
7665         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7666          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7667         Protected Overrides Function GetRowType() As Global.System.Type
7668             Return GetType(ServiceRow)
7669         End Function
7670         
7671         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7672          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7673         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7674             MyBase.OnRowChanged(e)
7675             If (Not (Me.ServiceRowChangedEvent) Is Nothing) Then
7676                 RaiseEvent ServiceRowChanged(Me, New ServiceRowChangeEvent(CType(e.Row,ServiceRow), e.Action))
7677             End If
7678         End Sub
7679         
7680         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7681          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7682         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7683             MyBase.OnRowChanging(e)
7684             If (Not (Me.ServiceRowChangingEvent) Is Nothing) Then
7685                 RaiseEvent ServiceRowChanging(Me, New ServiceRowChangeEvent(CType(e.Row,ServiceRow), e.Action))
7686             End If
7687         End Sub
7688         
7689         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7690          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7691         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7692             MyBase.OnRowDeleted(e)
7693             If (Not (Me.ServiceRowDeletedEvent) Is Nothing) Then
7694                 RaiseEvent ServiceRowDeleted(Me, New ServiceRowChangeEvent(CType(e.Row,ServiceRow), e.Action))
7695             End If
7696         End Sub
7697         
7698         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7699          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7700         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7701             MyBase.OnRowDeleting(e)
7702             If (Not (Me.ServiceRowDeletingEvent) Is Nothing) Then
7703                 RaiseEvent ServiceRowDeleting(Me, New ServiceRowChangeEvent(CType(e.Row,ServiceRow), e.Action))
7704             End If
7705         End Sub
7706         
7707         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7708          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7709         Public Sub RemoveServiceRow(ByVal row As ServiceRow)
7710             Me.Rows.Remove(row)
7711         End Sub
7712         
7713         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7714          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7715         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
7716             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
7717             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
7718             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
7719             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
7720             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
7721             any1.MinOccurs = New Decimal(0)
7722             any1.MaxOccurs = Decimal.MaxValue
7723             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
7724             sequence.Items.Add(any1)
7725             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
7726             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
7727             any2.MinOccurs = New Decimal(1)
7728             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
7729             sequence.Items.Add(any2)
7730             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
7731             attribute1.Name = "namespace"
7732             attribute1.FixedValue = ds.Namespace
7733             type.Attributes.Add(attribute1)
7734             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
7735             attribute2.Name = "tableTypeName"
7736             attribute2.FixedValue = "ServiceDataTable"
7737             type.Attributes.Add(attribute2)
7738             type.Particle = sequence
7739             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
7740             If xs.Contains(dsSchema.TargetNamespace) Then
7741                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7742                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7743                 Try
7744                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
7745                     dsSchema.Write(s1)
7746                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
7747                     Do While schemas.MoveNext
7748                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
7749                         s2.SetLength(0)
7750                         schema.Write(s2)
7751                         If (s1.Length = s2.Length) Then
7752                             s1.Position = 0
7753                             s2.Position = 0
7754                             
7755                             Do While ((s1.Position <> s1.Length) _
7756                                         AndAlso (s1.ReadByte = s2.ReadByte))
7757                                 
7758                                 
7759                             Loop
7760                             If (s1.Position = s1.Length) Then
7761                                 Return type
7762                             End If
7763                         End If
7764                         
7765                     Loop
7766                 Finally
7767                     If (Not (s1) Is Nothing) Then
7768                         s1.Close
7769                     End If
7770                     If (Not (s2) Is Nothing) Then
7771                         s2.Close
7772                     End If
7773                 End Try
7774             End If
7775             xs.Add(dsSchema)
7776             Return type
7777         End Function
7778     End Class
7779     
7780     '''<summary>
7781     '''Represents the strongly named DataTable class.
7782     '''</summary>
7783     <Global.System.Serializable(), _
7784      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
7785     Partial Public Class SMSSettingDataTable
7786         Inherits Global.System.Data.TypedTableBase(Of SMSSettingRow)
7787         
7788         Private columnId As Global.System.Data.DataColumn
7789         
7790         Private columnAPIUrl As Global.System.Data.DataColumn
7791         
7792         Private columnIsDefault As Global.System.Data.DataColumn
7793         
7794         Private columnIsEnabled As Global.System.Data.DataColumn
7795         
7796         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7797          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7798         Public Sub New()
7799             MyBase.New
7800             Me.TableName = "SMSSetting"
7801             Me.BeginInit
7802             Me.InitClass
7803             Me.EndInit
7804         End Sub
7805         
7806         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7807          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7808         Friend Sub New(ByVal table As Global.System.Data.DataTable)
7809             MyBase.New
7810             Me.TableName = table.TableName
7811             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
7812                 Me.CaseSensitive = table.CaseSensitive
7813             End If
7814             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
7815                 Me.Locale = table.Locale
7816             End If
7817             If (table.Namespace <> table.DataSet.Namespace) Then
7818                 Me.Namespace = table.Namespace
7819             End If
7820             Me.Prefix = table.Prefix
7821             Me.MinimumCapacity = table.MinimumCapacity
7822         End Sub
7823         
7824         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7825          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7826         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
7827             MyBase.New(info, context)
7828             Me.InitVars
7829         End Sub
7830         
7831         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7832          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7833         Public ReadOnly Property IdColumn() As Global.System.Data.DataColumn
7834             Get
7835                 Return Me.columnId
7836             End Get
7837         End Property
7838         
7839         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7840          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7841         Public ReadOnly Property APIUrlColumn() As Global.System.Data.DataColumn
7842             Get
7843                 Return Me.columnAPIUrl
7844             End Get
7845         End Property
7846         
7847         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7848          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7849         Public ReadOnly Property IsDefaultColumn() As Global.System.Data.DataColumn
7850             Get
7851                 Return Me.columnIsDefault
7852             End Get
7853         End Property
7854         
7855         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7856          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7857         Public ReadOnly Property IsEnabledColumn() As Global.System.Data.DataColumn
7858             Get
7859                 Return Me.columnIsEnabled
7860             End Get
7861         End Property
7862         
7863         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7864          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
7865          Global.System.ComponentModel.Browsable(false)> _
7866         Public ReadOnly Property Count() As Integer
7867             Get
7868                 Return Me.Rows.Count
7869             End Get
7870         End Property
7871         
7872         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7873          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7874         Public Default ReadOnly Property Item(ByVal index As Integer) As SMSSettingRow
7875             Get
7876                 Return CType(Me.Rows(index),SMSSettingRow)
7877             End Get
7878         End Property
7879         
7880         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7881         Public Event SMSSettingRowChanging As SMSSettingRowChangeEventHandler
7882         
7883         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7884         Public Event SMSSettingRowChanged As SMSSettingRowChangeEventHandler
7885         
7886         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7887         Public Event SMSSettingRowDeleting As SMSSettingRowChangeEventHandler
7888         
7889         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7890         Public Event SMSSettingRowDeleted As SMSSettingRowChangeEventHandler
7891         
7892         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7893          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7894         Public Overloads Sub AddSMSSettingRow(ByVal row As SMSSettingRow)
7895             Me.Rows.Add(row)
7896         End Sub
7897         
7898         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7899          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7900         Public Overloads Function AddSMSSettingRow(ByVal APIUrl As String, ByVal IsDefault As String, ByVal IsEnabled As String) As SMSSettingRow
7901             Dim rowSMSSettingRow As SMSSettingRow = CType(Me.NewRow,SMSSettingRow)
7902             Dim columnValuesArray() As Object = New Object() {Nothing, APIUrl, IsDefault, IsEnabled}
7903             rowSMSSettingRow.ItemArray = columnValuesArray
7904             Me.Rows.Add(rowSMSSettingRow)
7905             Return rowSMSSettingRow
7906         End Function
7907         
7908         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7909          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7910         Public Function FindById(ByVal Id As Integer) As SMSSettingRow
7911             Return CType(Me.Rows.Find(New Object() {Id}),SMSSettingRow)
7912         End Function
7913         
7914         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7915          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7916         Public Overrides Function Clone() As Global.System.Data.DataTable
7917             Dim cln As SMSSettingDataTable = CType(MyBase.Clone,SMSSettingDataTable)
7918             cln.InitVars
7919             Return cln
7920         End Function
7921         
7922         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7923          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7924         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
7925             Return New SMSSettingDataTable()
7926         End Function
7927         
7928         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7929          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7930         Friend Sub InitVars()
7931             Me.columnId = MyBase.Columns("Id")
7932             Me.columnAPIUrl = MyBase.Columns("APIUrl")
7933             Me.columnIsDefault = MyBase.Columns("IsDefault")
7934             Me.columnIsEnabled = MyBase.Columns("IsEnabled")
7935         End Sub
7936         
7937         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7938          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7939         Private Sub InitClass()
7940             Me.columnId = New Global.System.Data.DataColumn("Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
7941             MyBase.Columns.Add(Me.columnId)
7942             Me.columnAPIUrl = New Global.System.Data.DataColumn("APIUrl", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7943             MyBase.Columns.Add(Me.columnAPIUrl)
7944             Me.columnIsDefault = New Global.System.Data.DataColumn("IsDefault", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7945             MyBase.Columns.Add(Me.columnIsDefault)
7946             Me.columnIsEnabled = New Global.System.Data.DataColumn("IsEnabled", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7947             MyBase.Columns.Add(Me.columnIsEnabled)
7948             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true))
7949             Me.columnId.AutoIncrement = true
7950             Me.columnId.AutoIncrementSeed = -1
7951             Me.columnId.AutoIncrementStep = -1
7952             Me.columnId.AllowDBNull = false
7953             Me.columnId.ReadOnly = true
7954             Me.columnId.Unique = true
7955             Me.columnAPIUrl.AllowDBNull = false
7956             Me.columnAPIUrl.MaxLength = 2147483647
7957             Me.columnIsDefault.AllowDBNull = false
7958             Me.columnIsDefault.MaxLength = 10
7959             Me.columnIsEnabled.AllowDBNull = false
7960             Me.columnIsEnabled.MaxLength = 10
7961         End Sub
7962         
7963         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7964          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7965         Public Function NewSMSSettingRow() As SMSSettingRow
7966             Return CType(Me.NewRow,SMSSettingRow)
7967         End Function
7968         
7969         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7970          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7971         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
7972             Return New SMSSettingRow(builder)
7973         End Function
7974         
7975         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7976          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7977         Protected Overrides Function GetRowType() As Global.System.Type
7978             Return GetType(SMSSettingRow)
7979         End Function
7980         
7981         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7982          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7983         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7984             MyBase.OnRowChanged(e)
7985             If (Not (Me.SMSSettingRowChangedEvent) Is Nothing) Then
7986                 RaiseEvent SMSSettingRowChanged(Me, New SMSSettingRowChangeEvent(CType(e.Row,SMSSettingRow), e.Action))
7987             End If
7988         End Sub
7989         
7990         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7991          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7992         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7993             MyBase.OnRowChanging(e)
7994             If (Not (Me.SMSSettingRowChangingEvent) Is Nothing) Then
7995                 RaiseEvent SMSSettingRowChanging(Me, New SMSSettingRowChangeEvent(CType(e.Row,SMSSettingRow), e.Action))
7996             End If
7997         End Sub
7998         
7999         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8000          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8001         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8002             MyBase.OnRowDeleted(e)
8003             If (Not (Me.SMSSettingRowDeletedEvent) Is Nothing) Then
8004                 RaiseEvent SMSSettingRowDeleted(Me, New SMSSettingRowChangeEvent(CType(e.Row,SMSSettingRow), e.Action))
8005             End If
8006         End Sub
8007         
8008         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8009          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8010         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8011             MyBase.OnRowDeleting(e)
8012             If (Not (Me.SMSSettingRowDeletingEvent) Is Nothing) Then
8013                 RaiseEvent SMSSettingRowDeleting(Me, New SMSSettingRowChangeEvent(CType(e.Row,SMSSettingRow), e.Action))
8014             End If
8015         End Sub
8016         
8017         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8018          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8019         Public Sub RemoveSMSSettingRow(ByVal row As SMSSettingRow)
8020             Me.Rows.Remove(row)
8021         End Sub
8022         
8023         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8024          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8025         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
8026             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
8027             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
8028             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
8029             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
8030             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
8031             any1.MinOccurs = New Decimal(0)
8032             any1.MaxOccurs = Decimal.MaxValue
8033             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
8034             sequence.Items.Add(any1)
8035             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
8036             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
8037             any2.MinOccurs = New Decimal(1)
8038             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
8039             sequence.Items.Add(any2)
8040             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
8041             attribute1.Name = "namespace"
8042             attribute1.FixedValue = ds.Namespace
8043             type.Attributes.Add(attribute1)
8044             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
8045             attribute2.Name = "tableTypeName"
8046             attribute2.FixedValue = "SMSSettingDataTable"
8047             type.Attributes.Add(attribute2)
8048             type.Particle = sequence
8049             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
8050             If xs.Contains(dsSchema.TargetNamespace) Then
8051                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
8052                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
8053                 Try
8054                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
8055                     dsSchema.Write(s1)
8056                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
8057                     Do While schemas.MoveNext
8058                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
8059                         s2.SetLength(0)
8060                         schema.Write(s2)
8061                         If (s1.Length = s2.Length) Then
8062                             s1.Position = 0
8063                             s2.Position = 0
8064                             
8065                             Do While ((s1.Position <> s1.Length) _
8066                                         AndAlso (s1.ReadByte = s2.ReadByte))
8067                                 
8068                                 
8069                             Loop
8070                             If (s1.Position = s1.Length) Then
8071                                 Return type
8072                             End If
8073                         End If
8074                         
8075                     Loop
8076                 Finally
8077                     If (Not (s1) Is Nothing) Then
8078                         s1.Close
8079                     End If
8080                     If (Not (s2) Is Nothing) Then
8081                         s2.Close
8082                     End If
8083                 End Try
8084             End If
8085             xs.Add(dsSchema)
8086             Return type
8087         End Function
8088     End Class
8089     
8090     '''<summary>
8091     '''Represents the strongly named DataTable class.
8092     '''</summary>
8093     <Global.System.Serializable(), _
8094      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
8095     Partial Public Class StockDataTable
8096         Inherits Global.System.Data.TypedTableBase(Of StockRow)
8097         
8098         Private columnST_ID As Global.System.Data.DataColumn
8099         
8100         Private columnStock_ID As Global.System.Data.DataColumn
8101         
8102         Private columnDate As Global.System.Data.DataColumn
8103         
8104         Private columnSupplierID As Global.System.Data.DataColumn
8105         
8106         Private columnGrandTotal As Global.System.Data.DataColumn
8107         
8108         Private columnTotalPayment As Global.System.Data.DataColumn
8109         
8110         Private columnPaymentDue As Global.System.Data.DataColumn
8111         
8112         Private columnRemarks As Global.System.Data.DataColumn
8113         
8114         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8115          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8116         Public Sub New()
8117             MyBase.New
8118             Me.TableName = "Stock"
8119             Me.BeginInit
8120             Me.InitClass
8121             Me.EndInit
8122         End Sub
8123         
8124         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8125          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8126         Friend Sub New(ByVal table As Global.System.Data.DataTable)
8127             MyBase.New
8128             Me.TableName = table.TableName
8129             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
8130                 Me.CaseSensitive = table.CaseSensitive
8131             End If
8132             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
8133                 Me.Locale = table.Locale
8134             End If
8135             If (table.Namespace <> table.DataSet.Namespace) Then
8136                 Me.Namespace = table.Namespace
8137             End If
8138             Me.Prefix = table.Prefix
8139             Me.MinimumCapacity = table.MinimumCapacity
8140         End Sub
8141         
8142         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8143          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8144         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
8145             MyBase.New(info, context)
8146             Me.InitVars
8147         End Sub
8148         
8149         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8150          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8151         Public ReadOnly Property ST_IDColumn() As Global.System.Data.DataColumn
8152             Get
8153                 Return Me.columnST_ID
8154             End Get
8155         End Property
8156         
8157         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8158          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8159         Public ReadOnly Property Stock_IDColumn() As Global.System.Data.DataColumn
8160             Get
8161                 Return Me.columnStock_ID
8162             End Get
8163         End Property
8164         
8165         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8166          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8167         Public ReadOnly Property DateColumn() As Global.System.Data.DataColumn
8168             Get
8169                 Return Me.columnDate
8170             End Get
8171         End Property
8172         
8173         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8174          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8175         Public ReadOnly Property SupplierIDColumn() As Global.System.Data.DataColumn
8176             Get
8177                 Return Me.columnSupplierID
8178             End Get
8179         End Property
8180         
8181         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8182          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8183         Public ReadOnly Property GrandTotalColumn() As Global.System.Data.DataColumn
8184             Get
8185                 Return Me.columnGrandTotal
8186             End Get
8187         End Property
8188         
8189         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8190          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8191         Public ReadOnly Property TotalPaymentColumn() As Global.System.Data.DataColumn
8192             Get
8193                 Return Me.columnTotalPayment
8194             End Get
8195         End Property
8196         
8197         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8198          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8199         Public ReadOnly Property PaymentDueColumn() As Global.System.Data.DataColumn
8200             Get
8201                 Return Me.columnPaymentDue
8202             End Get
8203         End Property
8204         
8205         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8206          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8207         Public ReadOnly Property RemarksColumn() As Global.System.Data.DataColumn
8208             Get
8209                 Return Me.columnRemarks
8210             End Get
8211         End Property
8212         
8213         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8214          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
8215          Global.System.ComponentModel.Browsable(false)> _
8216         Public ReadOnly Property Count() As Integer
8217             Get
8218                 Return Me.Rows.Count
8219             End Get
8220         End Property
8221         
8222         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8223          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8224         Public Default ReadOnly Property Item(ByVal index As Integer) As StockRow
8225             Get
8226                 Return CType(Me.Rows(index),StockRow)
8227             End Get
8228         End Property
8229         
8230         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8231         Public Event StockRowChanging As StockRowChangeEventHandler
8232         
8233         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8234         Public Event StockRowChanged As StockRowChangeEventHandler
8235         
8236         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8237         Public Event StockRowDeleting As StockRowChangeEventHandler
8238         
8239         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8240         Public Event StockRowDeleted As StockRowChangeEventHandler
8241         
8242         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8243          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8244         Public Overloads Sub AddStockRow(ByVal row As StockRow)
8245             Me.Rows.Add(row)
8246         End Sub
8247         
8248         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8249          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8250         Public Overloads Function AddStockRow(ByVal ST_ID As Integer, ByVal Stock_ID As String, ByVal _Date As Date, ByVal parentSupplierRowByFK_Stock_Supplier As SupplierRow, ByVal GrandTotal As Decimal, ByVal TotalPayment As Decimal, ByVal PaymentDue As Decimal, ByVal Remarks As String) As StockRow
8251             Dim rowStockRow As StockRow = CType(Me.NewRow,StockRow)
8252             Dim columnValuesArray() As Object = New Object() {ST_ID, Stock_ID, _Date, Nothing, GrandTotal, TotalPayment, PaymentDue, Remarks}
8253             If (Not (parentSupplierRowByFK_Stock_Supplier) Is Nothing) Then
8254                 columnValuesArray(3) = parentSupplierRowByFK_Stock_Supplier(0)
8255             End If
8256             rowStockRow.ItemArray = columnValuesArray
8257             Me.Rows.Add(rowStockRow)
8258             Return rowStockRow
8259         End Function
8260         
8261         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8262          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8263         Public Function FindByST_ID(ByVal ST_ID As Integer) As StockRow
8264             Return CType(Me.Rows.Find(New Object() {ST_ID}),StockRow)
8265         End Function
8266         
8267         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8268          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8269         Public Overrides Function Clone() As Global.System.Data.DataTable
8270             Dim cln As StockDataTable = CType(MyBase.Clone,StockDataTable)
8271             cln.InitVars
8272             Return cln
8273         End Function
8274         
8275         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8276          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8277         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
8278             Return New StockDataTable()
8279         End Function
8280         
8281         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8282          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8283         Friend Sub InitVars()
8284             Me.columnST_ID = MyBase.Columns("ST_ID")
8285             Me.columnStock_ID = MyBase.Columns("Stock_ID")
8286             Me.columnDate = MyBase.Columns("Date")
8287             Me.columnSupplierID = MyBase.Columns("SupplierID")
8288             Me.columnGrandTotal = MyBase.Columns("GrandTotal")
8289             Me.columnTotalPayment = MyBase.Columns("TotalPayment")
8290             Me.columnPaymentDue = MyBase.Columns("PaymentDue")
8291             Me.columnRemarks = MyBase.Columns("Remarks")
8292         End Sub
8293         
8294         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8295          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8296         Private Sub InitClass()
8297             Me.columnST_ID = New Global.System.Data.DataColumn("ST_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
8298             MyBase.Columns.Add(Me.columnST_ID)
8299             Me.columnStock_ID = New Global.System.Data.DataColumn("Stock_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
8300             MyBase.Columns.Add(Me.columnStock_ID)
8301             Me.columnDate = New Global.System.Data.DataColumn("Date", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
8302             Me.columnDate.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "DateColumn")
8303             Me.columnDate.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnDate")
8304             Me.columnDate.ExtendedProperties.Add("Generator_UserColumnName", "Date")
8305             MyBase.Columns.Add(Me.columnDate)
8306             Me.columnSupplierID = New Global.System.Data.DataColumn("SupplierID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
8307             MyBase.Columns.Add(Me.columnSupplierID)
8308             Me.columnGrandTotal = New Global.System.Data.DataColumn("GrandTotal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
8309             MyBase.Columns.Add(Me.columnGrandTotal)
8310             Me.columnTotalPayment = New Global.System.Data.DataColumn("TotalPayment", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
8311             MyBase.Columns.Add(Me.columnTotalPayment)
8312             Me.columnPaymentDue = New Global.System.Data.DataColumn("PaymentDue", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
8313             MyBase.Columns.Add(Me.columnPaymentDue)
8314             Me.columnRemarks = New Global.System.Data.DataColumn("Remarks", GetType(String), Nothing, Global.System.Data.MappingType.Element)
8315             MyBase.Columns.Add(Me.columnRemarks)
8316             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnST_ID}, true))
8317             Me.columnST_ID.AllowDBNull = false
8318             Me.columnST_ID.Unique = true
8319             Me.columnStock_ID.AllowDBNull = false
8320             Me.columnStock_ID.MaxLength = 30
8321             Me.columnDate.AllowDBNull = false
8322             Me.columnSupplierID.AllowDBNull = false
8323             Me.columnGrandTotal.AllowDBNull = false
8324             Me.columnTotalPayment.AllowDBNull = false
8325             Me.columnPaymentDue.AllowDBNull = false
8326             Me.columnRemarks.MaxLength = 2147483647
8327         End Sub
8328         
8329         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8330          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8331         Public Function NewStockRow() As StockRow
8332             Return CType(Me.NewRow,StockRow)
8333         End Function
8334         
8335         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8336          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8337         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
8338             Return New StockRow(builder)
8339         End Function
8340         
8341         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8342          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8343         Protected Overrides Function GetRowType() As Global.System.Type
8344             Return GetType(StockRow)
8345         End Function
8346         
8347         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8348          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8349         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8350             MyBase.OnRowChanged(e)
8351             If (Not (Me.StockRowChangedEvent) Is Nothing) Then
8352                 RaiseEvent StockRowChanged(Me, New StockRowChangeEvent(CType(e.Row,StockRow), e.Action))
8353             End If
8354         End Sub
8355         
8356         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8357          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8358         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8359             MyBase.OnRowChanging(e)
8360             If (Not (Me.StockRowChangingEvent) Is Nothing) Then
8361                 RaiseEvent StockRowChanging(Me, New StockRowChangeEvent(CType(e.Row,StockRow), e.Action))
8362             End If
8363         End Sub
8364         
8365         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8366          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8367         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8368             MyBase.OnRowDeleted(e)
8369             If (Not (Me.StockRowDeletedEvent) Is Nothing) Then
8370                 RaiseEvent StockRowDeleted(Me, New StockRowChangeEvent(CType(e.Row,StockRow), e.Action))
8371             End If
8372         End Sub
8373         
8374         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8375          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8376         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8377             MyBase.OnRowDeleting(e)
8378             If (Not (Me.StockRowDeletingEvent) Is Nothing) Then
8379                 RaiseEvent StockRowDeleting(Me, New StockRowChangeEvent(CType(e.Row,StockRow), e.Action))
8380             End If
8381         End Sub
8382         
8383         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8384          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8385         Public Sub RemoveStockRow(ByVal row As StockRow)
8386             Me.Rows.Remove(row)
8387         End Sub
8388         
8389         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8390          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8391         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
8392             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
8393             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
8394             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
8395             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
8396             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
8397             any1.MinOccurs = New Decimal(0)
8398             any1.MaxOccurs = Decimal.MaxValue
8399             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
8400             sequence.Items.Add(any1)
8401             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
8402             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
8403             any2.MinOccurs = New Decimal(1)
8404             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
8405             sequence.Items.Add(any2)
8406             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
8407             attribute1.Name = "namespace"
8408             attribute1.FixedValue = ds.Namespace
8409             type.Attributes.Add(attribute1)
8410             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
8411             attribute2.Name = "tableTypeName"
8412             attribute2.FixedValue = "StockDataTable"
8413             type.Attributes.Add(attribute2)
8414             type.Particle = sequence
8415             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
8416             If xs.Contains(dsSchema.TargetNamespace) Then
8417                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
8418                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
8419                 Try
8420                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
8421                     dsSchema.Write(s1)
8422                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
8423                     Do While schemas.MoveNext
8424                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
8425                         s2.SetLength(0)
8426                         schema.Write(s2)
8427                         If (s1.Length = s2.Length) Then
8428                             s1.Position = 0
8429                             s2.Position = 0
8430                             
8431                             Do While ((s1.Position <> s1.Length) _
8432                                         AndAlso (s1.ReadByte = s2.ReadByte))
8433                                 
8434                                 
8435                             Loop
8436                             If (s1.Position = s1.Length) Then
8437                                 Return type
8438                             End If
8439                         End If
8440                         
8441                     Loop
8442                 Finally
8443                     If (Not (s1) Is Nothing) Then
8444                         s1.Close
8445                     End If
8446                     If (Not (s2) Is Nothing) Then
8447                         s2.Close
8448                     End If
8449                 End Try
8450             End If
8451             xs.Add(dsSchema)
8452             Return type
8453         End Function
8454     End Class
8455     
8456     '''<summary>
8457     '''Represents the strongly named DataTable class.
8458     '''</summary>
8459     <Global.System.Serializable(), _
8460      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
8461     Partial Public Class Stock_ProductDataTable
8462         Inherits Global.System.Data.TypedTableBase(Of Stock_ProductRow)
8463         
8464         Private columnSP_ID As Global.System.Data.DataColumn
8465         
8466         Private columnStockID As Global.System.Data.DataColumn
8467         
8468         Private columnProductID As Global.System.Data.DataColumn
8469         
8470         Private columnQty As Global.System.Data.DataColumn
8471         
8472         Private columnPrice As Global.System.Data.DataColumn
8473         
8474         Private columnTotalAmount As Global.System.Data.DataColumn
8475         
8476         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8477          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8478         Public Sub New()
8479             MyBase.New
8480             Me.TableName = "Stock_Product"
8481             Me.BeginInit
8482             Me.InitClass
8483             Me.EndInit
8484         End Sub
8485         
8486         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8487          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8488         Friend Sub New(ByVal table As Global.System.Data.DataTable)
8489             MyBase.New
8490             Me.TableName = table.TableName
8491             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
8492                 Me.CaseSensitive = table.CaseSensitive
8493             End If
8494             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
8495                 Me.Locale = table.Locale
8496             End If
8497             If (table.Namespace <> table.DataSet.Namespace) Then
8498                 Me.Namespace = table.Namespace
8499             End If
8500             Me.Prefix = table.Prefix
8501             Me.MinimumCapacity = table.MinimumCapacity
8502         End Sub
8503         
8504         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8505          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8506         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
8507             MyBase.New(info, context)
8508             Me.InitVars
8509         End Sub
8510         
8511         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8512          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8513         Public ReadOnly Property SP_IDColumn() As Global.System.Data.DataColumn
8514             Get
8515                 Return Me.columnSP_ID
8516             End Get
8517         End Property
8518         
8519         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8520          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8521         Public ReadOnly Property StockIDColumn() As Global.System.Data.DataColumn
8522             Get
8523                 Return Me.columnStockID
8524             End Get
8525         End Property
8526         
8527         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8528          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8529         Public ReadOnly Property ProductIDColumn() As Global.System.Data.DataColumn
8530             Get
8531                 Return Me.columnProductID
8532             End Get
8533         End Property
8534         
8535         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8536          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8537         Public ReadOnly Property QtyColumn() As Global.System.Data.DataColumn
8538             Get
8539                 Return Me.columnQty
8540             End Get
8541         End Property
8542         
8543         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8544          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8545         Public ReadOnly Property PriceColumn() As Global.System.Data.DataColumn
8546             Get
8547                 Return Me.columnPrice
8548             End Get
8549         End Property
8550         
8551         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8552          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8553         Public ReadOnly Property TotalAmountColumn() As Global.System.Data.DataColumn
8554             Get
8555                 Return Me.columnTotalAmount
8556             End Get
8557         End Property
8558         
8559         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8560          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
8561          Global.System.ComponentModel.Browsable(false)> _
8562         Public ReadOnly Property Count() As Integer
8563             Get
8564                 Return Me.Rows.Count
8565             End Get
8566         End Property
8567         
8568         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8569          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8570         Public Default ReadOnly Property Item(ByVal index As Integer) As Stock_ProductRow
8571             Get
8572                 Return CType(Me.Rows(index),Stock_ProductRow)
8573             End Get
8574         End Property
8575         
8576         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8577         Public Event Stock_ProductRowChanging As Stock_ProductRowChangeEventHandler
8578         
8579         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8580         Public Event Stock_ProductRowChanged As Stock_ProductRowChangeEventHandler
8581         
8582         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8583         Public Event Stock_ProductRowDeleting As Stock_ProductRowChangeEventHandler
8584         
8585         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8586         Public Event Stock_ProductRowDeleted As Stock_ProductRowChangeEventHandler
8587         
8588         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8589          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8590         Public Overloads Sub AddStock_ProductRow(ByVal row As Stock_ProductRow)
8591             Me.Rows.Add(row)
8592         End Sub
8593         
8594         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8595          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8596         Public Overloads Function AddStock_ProductRow(ByVal parentStockRowByFK_Stock_Product_Stock As StockRow, ByVal parentProductRowByFK_Stock_Product_Product As ProductRow, ByVal Qty As Integer, ByVal Price As Decimal, ByVal TotalAmount As Decimal) As Stock_ProductRow
8597             Dim rowStock_ProductRow As Stock_ProductRow = CType(Me.NewRow,Stock_ProductRow)
8598             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, Qty, Price, TotalAmount}
8599             If (Not (parentStockRowByFK_Stock_Product_Stock) Is Nothing) Then
8600                 columnValuesArray(1) = parentStockRowByFK_Stock_Product_Stock(0)
8601             End If
8602             If (Not (parentProductRowByFK_Stock_Product_Product) Is Nothing) Then
8603                 columnValuesArray(2) = parentProductRowByFK_Stock_Product_Product(0)
8604             End If
8605             rowStock_ProductRow.ItemArray = columnValuesArray
8606             Me.Rows.Add(rowStock_ProductRow)
8607             Return rowStock_ProductRow
8608         End Function
8609         
8610         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8611          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8612         Public Function FindBySP_ID(ByVal SP_ID As Integer) As Stock_ProductRow
8613             Return CType(Me.Rows.Find(New Object() {SP_ID}),Stock_ProductRow)
8614         End Function
8615         
8616         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8617          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8618         Public Overrides Function Clone() As Global.System.Data.DataTable
8619             Dim cln As Stock_ProductDataTable = CType(MyBase.Clone,Stock_ProductDataTable)
8620             cln.InitVars
8621             Return cln
8622         End Function
8623         
8624         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8625          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8626         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
8627             Return New Stock_ProductDataTable()
8628         End Function
8629         
8630         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8631          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8632         Friend Sub InitVars()
8633             Me.columnSP_ID = MyBase.Columns("SP_ID")
8634             Me.columnStockID = MyBase.Columns("StockID")
8635             Me.columnProductID = MyBase.Columns("ProductID")
8636             Me.columnQty = MyBase.Columns("Qty")
8637             Me.columnPrice = MyBase.Columns("Price")
8638             Me.columnTotalAmount = MyBase.Columns("TotalAmount")
8639         End Sub
8640         
8641         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8642          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8643         Private Sub InitClass()
8644             Me.columnSP_ID = New Global.System.Data.DataColumn("SP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
8645             MyBase.Columns.Add(Me.columnSP_ID)
8646             Me.columnStockID = New Global.System.Data.DataColumn("StockID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
8647             MyBase.Columns.Add(Me.columnStockID)
8648             Me.columnProductID = New Global.System.Data.DataColumn("ProductID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
8649             MyBase.Columns.Add(Me.columnProductID)
8650             Me.columnQty = New Global.System.Data.DataColumn("Qty", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
8651             MyBase.Columns.Add(Me.columnQty)
8652             Me.columnPrice = New Global.System.Data.DataColumn("Price", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
8653             MyBase.Columns.Add(Me.columnPrice)
8654             Me.columnTotalAmount = New Global.System.Data.DataColumn("TotalAmount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
8655             MyBase.Columns.Add(Me.columnTotalAmount)
8656             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSP_ID}, true))
8657             Me.columnSP_ID.AutoIncrement = true
8658             Me.columnSP_ID.AutoIncrementSeed = -1
8659             Me.columnSP_ID.AutoIncrementStep = -1
8660             Me.columnSP_ID.AllowDBNull = false
8661             Me.columnSP_ID.ReadOnly = true
8662             Me.columnSP_ID.Unique = true
8663             Me.columnStockID.AllowDBNull = false
8664             Me.columnProductID.AllowDBNull = false
8665             Me.columnQty.AllowDBNull = false
8666             Me.columnPrice.AllowDBNull = false
8667             Me.columnTotalAmount.AllowDBNull = false
8668         End Sub
8669         
8670         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8671          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8672         Public Function NewStock_ProductRow() As Stock_ProductRow
8673             Return CType(Me.NewRow,Stock_ProductRow)
8674         End Function
8675         
8676         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8677          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8678         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
8679             Return New Stock_ProductRow(builder)
8680         End Function
8681         
8682         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8683          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8684         Protected Overrides Function GetRowType() As Global.System.Type
8685             Return GetType(Stock_ProductRow)
8686         End Function
8687         
8688         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8689          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8690         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8691             MyBase.OnRowChanged(e)
8692             If (Not (Me.Stock_ProductRowChangedEvent) Is Nothing) Then
8693                 RaiseEvent Stock_ProductRowChanged(Me, New Stock_ProductRowChangeEvent(CType(e.Row,Stock_ProductRow), e.Action))
8694             End If
8695         End Sub
8696         
8697         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8698          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8699         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8700             MyBase.OnRowChanging(e)
8701             If (Not (Me.Stock_ProductRowChangingEvent) Is Nothing) Then
8702                 RaiseEvent Stock_ProductRowChanging(Me, New Stock_ProductRowChangeEvent(CType(e.Row,Stock_ProductRow), e.Action))
8703             End If
8704         End Sub
8705         
8706         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8707          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8708         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8709             MyBase.OnRowDeleted(e)
8710             If (Not (Me.Stock_ProductRowDeletedEvent) Is Nothing) Then
8711                 RaiseEvent Stock_ProductRowDeleted(Me, New Stock_ProductRowChangeEvent(CType(e.Row,Stock_ProductRow), e.Action))
8712             End If
8713         End Sub
8714         
8715         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8716          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8717         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8718             MyBase.OnRowDeleting(e)
8719             If (Not (Me.Stock_ProductRowDeletingEvent) Is Nothing) Then
8720                 RaiseEvent Stock_ProductRowDeleting(Me, New Stock_ProductRowChangeEvent(CType(e.Row,Stock_ProductRow), e.Action))
8721             End If
8722         End Sub
8723         
8724         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8725          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8726         Public Sub RemoveStock_ProductRow(ByVal row As Stock_ProductRow)
8727             Me.Rows.Remove(row)
8728         End Sub
8729         
8730         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8731          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8732         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
8733             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
8734             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
8735             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
8736             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
8737             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
8738             any1.MinOccurs = New Decimal(0)
8739             any1.MaxOccurs = Decimal.MaxValue
8740             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
8741             sequence.Items.Add(any1)
8742             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
8743             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
8744             any2.MinOccurs = New Decimal(1)
8745             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
8746             sequence.Items.Add(any2)
8747             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
8748             attribute1.Name = "namespace"
8749             attribute1.FixedValue = ds.Namespace
8750             type.Attributes.Add(attribute1)
8751             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
8752             attribute2.Name = "tableTypeName"
8753             attribute2.FixedValue = "Stock_ProductDataTable"
8754             type.Attributes.Add(attribute2)
8755             type.Particle = sequence
8756             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
8757             If xs.Contains(dsSchema.TargetNamespace) Then
8758                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
8759                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
8760                 Try
8761                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
8762                     dsSchema.Write(s1)
8763                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
8764                     Do While schemas.MoveNext
8765                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
8766                         s2.SetLength(0)
8767                         schema.Write(s2)
8768                         If (s1.Length = s2.Length) Then
8769                             s1.Position = 0
8770                             s2.Position = 0
8771                             
8772                             Do While ((s1.Position <> s1.Length) _
8773                                         AndAlso (s1.ReadByte = s2.ReadByte))
8774                                 
8775                                 
8776                             Loop
8777                             If (s1.Position = s1.Length) Then
8778                                 Return type
8779                             End If
8780                         End If
8781                         
8782                     Loop
8783                 Finally
8784                     If (Not (s1) Is Nothing) Then
8785                         s1.Close
8786                     End If
8787                     If (Not (s2) Is Nothing) Then
8788                         s2.Close
8789                     End If
8790                 End Try
8791             End If
8792             xs.Add(dsSchema)
8793             Return type
8794         End Function
8795     End Class
8796     
8797     '''<summary>
8798     '''Represents the strongly named DataTable class.
8799     '''</summary>
8800     <Global.System.Serializable(), _
8801      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
8802     Partial Public Class SubCategoryDataTable
8803         Inherits Global.System.Data.TypedTableBase(Of SubCategoryRow)
8804         
8805         Private columnID As Global.System.Data.DataColumn
8806         
8807         Private columnSubCategoryName As Global.System.Data.DataColumn
8808         
8809         Private columnCategory As Global.System.Data.DataColumn
8810         
8811         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8812          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8813         Public Sub New()
8814             MyBase.New
8815             Me.TableName = "SubCategory"
8816             Me.BeginInit
8817             Me.InitClass
8818             Me.EndInit
8819         End Sub
8820         
8821         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8822          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8823         Friend Sub New(ByVal table As Global.System.Data.DataTable)
8824             MyBase.New
8825             Me.TableName = table.TableName
8826             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
8827                 Me.CaseSensitive = table.CaseSensitive
8828             End If
8829             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
8830                 Me.Locale = table.Locale
8831             End If
8832             If (table.Namespace <> table.DataSet.Namespace) Then
8833                 Me.Namespace = table.Namespace
8834             End If
8835             Me.Prefix = table.Prefix
8836             Me.MinimumCapacity = table.MinimumCapacity
8837         End Sub
8838         
8839         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8840          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8841         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
8842             MyBase.New(info, context)
8843             Me.InitVars
8844         End Sub
8845         
8846         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8847          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8848         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
8849             Get
8850                 Return Me.columnID
8851             End Get
8852         End Property
8853         
8854         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8855          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8856         Public ReadOnly Property SubCategoryNameColumn() As Global.System.Data.DataColumn
8857             Get
8858                 Return Me.columnSubCategoryName
8859             End Get
8860         End Property
8861         
8862         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8863          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8864         Public ReadOnly Property CategoryColumn() As Global.System.Data.DataColumn
8865             Get
8866                 Return Me.columnCategory
8867             End Get
8868         End Property
8869         
8870         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8871          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
8872          Global.System.ComponentModel.Browsable(false)> _
8873         Public ReadOnly Property Count() As Integer
8874             Get
8875                 Return Me.Rows.Count
8876             End Get
8877         End Property
8878         
8879         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8880          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8881         Public Default ReadOnly Property Item(ByVal index As Integer) As SubCategoryRow
8882             Get
8883                 Return CType(Me.Rows(index),SubCategoryRow)
8884             End Get
8885         End Property
8886         
8887         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8888         Public Event SubCategoryRowChanging As SubCategoryRowChangeEventHandler
8889         
8890         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8891         Public Event SubCategoryRowChanged As SubCategoryRowChangeEventHandler
8892         
8893         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8894         Public Event SubCategoryRowDeleting As SubCategoryRowChangeEventHandler
8895         
8896         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8897         Public Event SubCategoryRowDeleted As SubCategoryRowChangeEventHandler
8898         
8899         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8900          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8901         Public Overloads Sub AddSubCategoryRow(ByVal row As SubCategoryRow)
8902             Me.Rows.Add(row)
8903         End Sub
8904         
8905         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8906          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8907         Public Overloads Function AddSubCategoryRow(ByVal ID As Integer, ByVal SubCategoryName As String, ByVal parentCategoryRowByFK_SubCategory_Category As CategoryRow) As SubCategoryRow
8908             Dim rowSubCategoryRow As SubCategoryRow = CType(Me.NewRow,SubCategoryRow)
8909             Dim columnValuesArray() As Object = New Object() {ID, SubCategoryName, Nothing}
8910             If (Not (parentCategoryRowByFK_SubCategory_Category) Is Nothing) Then
8911                 columnValuesArray(2) = parentCategoryRowByFK_SubCategory_Category(0)
8912             End If
8913             rowSubCategoryRow.ItemArray = columnValuesArray
8914             Me.Rows.Add(rowSubCategoryRow)
8915             Return rowSubCategoryRow
8916         End Function
8917         
8918         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8919          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8920         Public Function FindByID(ByVal ID As Integer) As SubCategoryRow
8921             Return CType(Me.Rows.Find(New Object() {ID}),SubCategoryRow)
8922         End Function
8923         
8924         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8925          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8926         Public Overrides Function Clone() As Global.System.Data.DataTable
8927             Dim cln As SubCategoryDataTable = CType(MyBase.Clone,SubCategoryDataTable)
8928             cln.InitVars
8929             Return cln
8930         End Function
8931         
8932         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8933          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8934         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
8935             Return New SubCategoryDataTable()
8936         End Function
8937         
8938         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8939          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8940         Friend Sub InitVars()
8941             Me.columnID = MyBase.Columns("ID")
8942             Me.columnSubCategoryName = MyBase.Columns("SubCategoryName")
8943             Me.columnCategory = MyBase.Columns("Category")
8944         End Sub
8945         
8946         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8947          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8948         Private Sub InitClass()
8949             Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
8950             MyBase.Columns.Add(Me.columnID)
8951             Me.columnSubCategoryName = New Global.System.Data.DataColumn("SubCategoryName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
8952             MyBase.Columns.Add(Me.columnSubCategoryName)
8953             Me.columnCategory = New Global.System.Data.DataColumn("Category", GetType(String), Nothing, Global.System.Data.MappingType.Element)
8954             MyBase.Columns.Add(Me.columnCategory)
8955             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
8956             Me.columnID.AllowDBNull = false
8957             Me.columnID.Unique = true
8958             Me.columnSubCategoryName.AllowDBNull = false
8959             Me.columnSubCategoryName.MaxLength = 150
8960             Me.columnCategory.AllowDBNull = false
8961             Me.columnCategory.MaxLength = 150
8962         End Sub
8963         
8964         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8965          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8966         Public Function NewSubCategoryRow() As SubCategoryRow
8967             Return CType(Me.NewRow,SubCategoryRow)
8968         End Function
8969         
8970         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8971          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8972         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
8973             Return New SubCategoryRow(builder)
8974         End Function
8975         
8976         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8977          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8978         Protected Overrides Function GetRowType() As Global.System.Type
8979             Return GetType(SubCategoryRow)
8980         End Function
8981         
8982         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8983          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8984         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8985             MyBase.OnRowChanged(e)
8986             If (Not (Me.SubCategoryRowChangedEvent) Is Nothing) Then
8987                 RaiseEvent SubCategoryRowChanged(Me, New SubCategoryRowChangeEvent(CType(e.Row,SubCategoryRow), e.Action))
8988             End If
8989         End Sub
8990         
8991         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8992          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8993         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
8994             MyBase.OnRowChanging(e)
8995             If (Not (Me.SubCategoryRowChangingEvent) Is Nothing) Then
8996                 RaiseEvent SubCategoryRowChanging(Me, New SubCategoryRowChangeEvent(CType(e.Row,SubCategoryRow), e.Action))
8997             End If
8998         End Sub
8999         
9000         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9001          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9002         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9003             MyBase.OnRowDeleted(e)
9004             If (Not (Me.SubCategoryRowDeletedEvent) Is Nothing) Then
9005                 RaiseEvent SubCategoryRowDeleted(Me, New SubCategoryRowChangeEvent(CType(e.Row,SubCategoryRow), e.Action))
9006             End If
9007         End Sub
9008         
9009         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9010          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9011         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9012             MyBase.OnRowDeleting(e)
9013             If (Not (Me.SubCategoryRowDeletingEvent) Is Nothing) Then
9014                 RaiseEvent SubCategoryRowDeleting(Me, New SubCategoryRowChangeEvent(CType(e.Row,SubCategoryRow), e.Action))
9015             End If
9016         End Sub
9017         
9018         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9019          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9020         Public Sub RemoveSubCategoryRow(ByVal row As SubCategoryRow)
9021             Me.Rows.Remove(row)
9022         End Sub
9023         
9024         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9025          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9026         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
9027             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
9028             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
9029             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
9030             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
9031             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
9032             any1.MinOccurs = New Decimal(0)
9033             any1.MaxOccurs = Decimal.MaxValue
9034             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
9035             sequence.Items.Add(any1)
9036             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
9037             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
9038             any2.MinOccurs = New Decimal(1)
9039             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
9040             sequence.Items.Add(any2)
9041             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
9042             attribute1.Name = "namespace"
9043             attribute1.FixedValue = ds.Namespace
9044             type.Attributes.Add(attribute1)
9045             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
9046             attribute2.Name = "tableTypeName"
9047             attribute2.FixedValue = "SubCategoryDataTable"
9048             type.Attributes.Add(attribute2)
9049             type.Particle = sequence
9050             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
9051             If xs.Contains(dsSchema.TargetNamespace) Then
9052                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
9053                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
9054                 Try
9055                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
9056                     dsSchema.Write(s1)
9057                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
9058                     Do While schemas.MoveNext
9059                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
9060                         s2.SetLength(0)
9061                         schema.Write(s2)
9062                         If (s1.Length = s2.Length) Then
9063                             s1.Position = 0
9064                             s2.Position = 0
9065                             
9066                             Do While ((s1.Position <> s1.Length) _
9067                                         AndAlso (s1.ReadByte = s2.ReadByte))
9068                                 
9069                                 
9070                             Loop
9071                             If (s1.Position = s1.Length) Then
9072                                 Return type
9073                             End If
9074                         End If
9075                         
9076                     Loop
9077                 Finally
9078                     If (Not (s1) Is Nothing) Then
9079                         s1.Close
9080                     End If
9081                     If (Not (s2) Is Nothing) Then
9082                         s2.Close
9083                     End If
9084                 End Try
9085             End If
9086             xs.Add(dsSchema)
9087             Return type
9088         End Function
9089     End Class
9090     
9091     '''<summary>
9092     '''Represents the strongly named DataTable class.
9093     '''</summary>
9094     <Global.System.Serializable(), _
9095      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
9096     Partial Public Class SupplierDataTable
9097         Inherits Global.System.Data.TypedTableBase(Of SupplierRow)
9098         
9099         Private columnID As Global.System.Data.DataColumn
9100         
9101         Private columnSupplierID As Global.System.Data.DataColumn
9102         
9103         Private columnName As Global.System.Data.DataColumn
9104         
9105         Private columnAddress As Global.System.Data.DataColumn
9106         
9107         Private columnCity As Global.System.Data.DataColumn
9108         
9109         Private columnState As Global.System.Data.DataColumn
9110         
9111         Private columnZipCode As Global.System.Data.DataColumn
9112         
9113         Private columnContactNo As Global.System.Data.DataColumn
9114         
9115         Private columnEmailID As Global.System.Data.DataColumn
9116         
9117         Private columnRemarks As Global.System.Data.DataColumn
9118         
9119         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9120          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9121         Public Sub New()
9122             MyBase.New
9123             Me.TableName = "Supplier"
9124             Me.BeginInit
9125             Me.InitClass
9126             Me.EndInit
9127         End Sub
9128         
9129         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9130          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9131         Friend Sub New(ByVal table As Global.System.Data.DataTable)
9132             MyBase.New
9133             Me.TableName = table.TableName
9134             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
9135                 Me.CaseSensitive = table.CaseSensitive
9136             End If
9137             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
9138                 Me.Locale = table.Locale
9139             End If
9140             If (table.Namespace <> table.DataSet.Namespace) Then
9141                 Me.Namespace = table.Namespace
9142             End If
9143             Me.Prefix = table.Prefix
9144             Me.MinimumCapacity = table.MinimumCapacity
9145         End Sub
9146         
9147         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9148          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9149         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
9150             MyBase.New(info, context)
9151             Me.InitVars
9152         End Sub
9153         
9154         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9155          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9156         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
9157             Get
9158                 Return Me.columnID
9159             End Get
9160         End Property
9161         
9162         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9163          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9164         Public ReadOnly Property SupplierIDColumn() As Global.System.Data.DataColumn
9165             Get
9166                 Return Me.columnSupplierID
9167             End Get
9168         End Property
9169         
9170         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9171          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9172         Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn
9173             Get
9174                 Return Me.columnName
9175             End Get
9176         End Property
9177         
9178         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9179          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9180         Public ReadOnly Property AddressColumn() As Global.System.Data.DataColumn
9181             Get
9182                 Return Me.columnAddress
9183             End Get
9184         End Property
9185         
9186         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9187          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9188         Public ReadOnly Property CityColumn() As Global.System.Data.DataColumn
9189             Get
9190                 Return Me.columnCity
9191             End Get
9192         End Property
9193         
9194         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9195          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9196         Public ReadOnly Property StateColumn() As Global.System.Data.DataColumn
9197             Get
9198                 Return Me.columnState
9199             End Get
9200         End Property
9201         
9202         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9203          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9204         Public ReadOnly Property ZipCodeColumn() As Global.System.Data.DataColumn
9205             Get
9206                 Return Me.columnZipCode
9207             End Get
9208         End Property
9209         
9210         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9211          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9212         Public ReadOnly Property ContactNoColumn() As Global.System.Data.DataColumn
9213             Get
9214                 Return Me.columnContactNo
9215             End Get
9216         End Property
9217         
9218         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9219          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9220         Public ReadOnly Property EmailIDColumn() As Global.System.Data.DataColumn
9221             Get
9222                 Return Me.columnEmailID
9223             End Get
9224         End Property
9225         
9226         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9227          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9228         Public ReadOnly Property RemarksColumn() As Global.System.Data.DataColumn
9229             Get
9230                 Return Me.columnRemarks
9231             End Get
9232         End Property
9233         
9234         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9235          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
9236          Global.System.ComponentModel.Browsable(false)> _
9237         Public ReadOnly Property Count() As Integer
9238             Get
9239                 Return Me.Rows.Count
9240             End Get
9241         End Property
9242         
9243         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9244          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9245         Public Default ReadOnly Property Item(ByVal index As Integer) As SupplierRow
9246             Get
9247                 Return CType(Me.Rows(index),SupplierRow)
9248             End Get
9249         End Property
9250         
9251         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9252         Public Event SupplierRowChanging As SupplierRowChangeEventHandler
9253         
9254         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9255         Public Event SupplierRowChanged As SupplierRowChangeEventHandler
9256         
9257         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9258         Public Event SupplierRowDeleting As SupplierRowChangeEventHandler
9259         
9260         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9261         Public Event SupplierRowDeleted As SupplierRowChangeEventHandler
9262         
9263         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9264          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9265         Public Overloads Sub AddSupplierRow(ByVal row As SupplierRow)
9266             Me.Rows.Add(row)
9267         End Sub
9268         
9269         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9270          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9271         Public Overloads Function AddSupplierRow(ByVal ID As Integer, ByVal SupplierID As String, ByVal Name As String, ByVal Address As String, ByVal City As String, ByVal State As String, ByVal ZipCode As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal Remarks As String) As SupplierRow
9272             Dim rowSupplierRow As SupplierRow = CType(Me.NewRow,SupplierRow)
9273             Dim columnValuesArray() As Object = New Object() {ID, SupplierID, Name, Address, City, State, ZipCode, ContactNo, EmailID, Remarks}
9274             rowSupplierRow.ItemArray = columnValuesArray
9275             Me.Rows.Add(rowSupplierRow)
9276             Return rowSupplierRow
9277         End Function
9278         
9279         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9280          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9281         Public Function FindByID(ByVal ID As Integer) As SupplierRow
9282             Return CType(Me.Rows.Find(New Object() {ID}),SupplierRow)
9283         End Function
9284         
9285         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9286          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9287         Public Overrides Function Clone() As Global.System.Data.DataTable
9288             Dim cln As SupplierDataTable = CType(MyBase.Clone,SupplierDataTable)
9289             cln.InitVars
9290             Return cln
9291         End Function
9292         
9293         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9294          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9295         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
9296             Return New SupplierDataTable()
9297         End Function
9298         
9299         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9300          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9301         Friend Sub InitVars()
9302             Me.columnID = MyBase.Columns("ID")
9303             Me.columnSupplierID = MyBase.Columns("SupplierID")
9304             Me.columnName = MyBase.Columns("Name")
9305             Me.columnAddress = MyBase.Columns("Address")
9306             Me.columnCity = MyBase.Columns("City")
9307             Me.columnState = MyBase.Columns("State")
9308             Me.columnZipCode = MyBase.Columns("ZipCode")
9309             Me.columnContactNo = MyBase.Columns("ContactNo")
9310             Me.columnEmailID = MyBase.Columns("EmailID")
9311             Me.columnRemarks = MyBase.Columns("Remarks")
9312         End Sub
9313         
9314         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9315          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9316         Private Sub InitClass()
9317             Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
9318             MyBase.Columns.Add(Me.columnID)
9319             Me.columnSupplierID = New Global.System.Data.DataColumn("SupplierID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9320             MyBase.Columns.Add(Me.columnSupplierID)
9321             Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9322             MyBase.Columns.Add(Me.columnName)
9323             Me.columnAddress = New Global.System.Data.DataColumn("Address", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9324             MyBase.Columns.Add(Me.columnAddress)
9325             Me.columnCity = New Global.System.Data.DataColumn("City", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9326             MyBase.Columns.Add(Me.columnCity)
9327             Me.columnState = New Global.System.Data.DataColumn("State", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9328             MyBase.Columns.Add(Me.columnState)
9329             Me.columnZipCode = New Global.System.Data.DataColumn("ZipCode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9330             MyBase.Columns.Add(Me.columnZipCode)
9331             Me.columnContactNo = New Global.System.Data.DataColumn("ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9332             MyBase.Columns.Add(Me.columnContactNo)
9333             Me.columnEmailID = New Global.System.Data.DataColumn("EmailID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9334             MyBase.Columns.Add(Me.columnEmailID)
9335             Me.columnRemarks = New Global.System.Data.DataColumn("Remarks", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9336             MyBase.Columns.Add(Me.columnRemarks)
9337             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
9338             Me.columnID.AllowDBNull = false
9339             Me.columnID.Unique = true
9340             Me.columnSupplierID.AllowDBNull = false
9341             Me.columnSupplierID.MaxLength = 30
9342             Me.columnName.MaxLength = 200
9343             Me.columnAddress.MaxLength = 250
9344             Me.columnCity.MaxLength = 200
9345             Me.columnState.MaxLength = 150
9346             Me.columnZipCode.MaxLength = 15
9347             Me.columnContactNo.MaxLength = 150
9348             Me.columnEmailID.MaxLength = 200
9349             Me.columnRemarks.MaxLength = 2147483647
9350         End Sub
9351         
9352         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9353          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9354         Public Function NewSupplierRow() As SupplierRow
9355             Return CType(Me.NewRow,SupplierRow)
9356         End Function
9357         
9358         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9359          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9360         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
9361             Return New SupplierRow(builder)
9362         End Function
9363         
9364         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9365          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9366         Protected Overrides Function GetRowType() As Global.System.Type
9367             Return GetType(SupplierRow)
9368         End Function
9369         
9370         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9371          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9372         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9373             MyBase.OnRowChanged(e)
9374             If (Not (Me.SupplierRowChangedEvent) Is Nothing) Then
9375                 RaiseEvent SupplierRowChanged(Me, New SupplierRowChangeEvent(CType(e.Row,SupplierRow), e.Action))
9376             End If
9377         End Sub
9378         
9379         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9380          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9381         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9382             MyBase.OnRowChanging(e)
9383             If (Not (Me.SupplierRowChangingEvent) Is Nothing) Then
9384                 RaiseEvent SupplierRowChanging(Me, New SupplierRowChangeEvent(CType(e.Row,SupplierRow), e.Action))
9385             End If
9386         End Sub
9387         
9388         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9389          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9390         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9391             MyBase.OnRowDeleted(e)
9392             If (Not (Me.SupplierRowDeletedEvent) Is Nothing) Then
9393                 RaiseEvent SupplierRowDeleted(Me, New SupplierRowChangeEvent(CType(e.Row,SupplierRow), e.Action))
9394             End If
9395         End Sub
9396         
9397         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9398          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9399         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9400             MyBase.OnRowDeleting(e)
9401             If (Not (Me.SupplierRowDeletingEvent) Is Nothing) Then
9402                 RaiseEvent SupplierRowDeleting(Me, New SupplierRowChangeEvent(CType(e.Row,SupplierRow), e.Action))
9403             End If
9404         End Sub
9405         
9406         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9407          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9408         Public Sub RemoveSupplierRow(ByVal row As SupplierRow)
9409             Me.Rows.Remove(row)
9410         End Sub
9411         
9412         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9413          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9414         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
9415             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
9416             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
9417             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
9418             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
9419             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
9420             any1.MinOccurs = New Decimal(0)
9421             any1.MaxOccurs = Decimal.MaxValue
9422             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
9423             sequence.Items.Add(any1)
9424             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
9425             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
9426             any2.MinOccurs = New Decimal(1)
9427             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
9428             sequence.Items.Add(any2)
9429             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
9430             attribute1.Name = "namespace"
9431             attribute1.FixedValue = ds.Namespace
9432             type.Attributes.Add(attribute1)
9433             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
9434             attribute2.Name = "tableTypeName"
9435             attribute2.FixedValue = "SupplierDataTable"
9436             type.Attributes.Add(attribute2)
9437             type.Particle = sequence
9438             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
9439             If xs.Contains(dsSchema.TargetNamespace) Then
9440                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
9441                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
9442                 Try
9443                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
9444                     dsSchema.Write(s1)
9445                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
9446                     Do While schemas.MoveNext
9447                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
9448                         s2.SetLength(0)
9449                         schema.Write(s2)
9450                         If (s1.Length = s2.Length) Then
9451                             s1.Position = 0
9452                             s2.Position = 0
9453                             
9454                             Do While ((s1.Position <> s1.Length) _
9455                                         AndAlso (s1.ReadByte = s2.ReadByte))
9456                                 
9457                                 
9458                             Loop
9459                             If (s1.Position = s1.Length) Then
9460                                 Return type
9461                             End If
9462                         End If
9463                         
9464                     Loop
9465                 Finally
9466                     If (Not (s1) Is Nothing) Then
9467                         s1.Close
9468                     End If
9469                     If (Not (s2) Is Nothing) Then
9470                         s2.Close
9471                     End If
9472                 End Try
9473             End If
9474             xs.Add(dsSchema)
9475             Return type
9476         End Function
9477     End Class
9478     
9479     '''<summary>
9480     '''Represents the strongly named DataTable class.
9481     '''</summary>
9482     <Global.System.Serializable(), _
9483      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
9484     Partial Public Class Temp_StockDataTable
9485         Inherits Global.System.Data.TypedTableBase(Of Temp_StockRow)
9486         
9487         Private columnProductID As Global.System.Data.DataColumn
9488         
9489         Private columnQty As Global.System.Data.DataColumn
9490         
9491         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9492          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9493         Public Sub New()
9494             MyBase.New
9495             Me.TableName = "Temp_Stock"
9496             Me.BeginInit
9497             Me.InitClass
9498             Me.EndInit
9499         End Sub
9500         
9501         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9502          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9503         Friend Sub New(ByVal table As Global.System.Data.DataTable)
9504             MyBase.New
9505             Me.TableName = table.TableName
9506             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
9507                 Me.CaseSensitive = table.CaseSensitive
9508             End If
9509             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
9510                 Me.Locale = table.Locale
9511             End If
9512             If (table.Namespace <> table.DataSet.Namespace) Then
9513                 Me.Namespace = table.Namespace
9514             End If
9515             Me.Prefix = table.Prefix
9516             Me.MinimumCapacity = table.MinimumCapacity
9517         End Sub
9518         
9519         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9520          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9521         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
9522             MyBase.New(info, context)
9523             Me.InitVars
9524         End Sub
9525         
9526         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9527          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9528         Public ReadOnly Property ProductIDColumn() As Global.System.Data.DataColumn
9529             Get
9530                 Return Me.columnProductID
9531             End Get
9532         End Property
9533         
9534         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9535          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9536         Public ReadOnly Property QtyColumn() As Global.System.Data.DataColumn
9537             Get
9538                 Return Me.columnQty
9539             End Get
9540         End Property
9541         
9542         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9543          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
9544          Global.System.ComponentModel.Browsable(false)> _
9545         Public ReadOnly Property Count() As Integer
9546             Get
9547                 Return Me.Rows.Count
9548             End Get
9549         End Property
9550         
9551         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9552          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9553         Public Default ReadOnly Property Item(ByVal index As Integer) As Temp_StockRow
9554             Get
9555                 Return CType(Me.Rows(index),Temp_StockRow)
9556             End Get
9557         End Property
9558         
9559         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9560         Public Event Temp_StockRowChanging As Temp_StockRowChangeEventHandler
9561         
9562         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9563         Public Event Temp_StockRowChanged As Temp_StockRowChangeEventHandler
9564         
9565         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9566         Public Event Temp_StockRowDeleting As Temp_StockRowChangeEventHandler
9567         
9568         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9569         Public Event Temp_StockRowDeleted As Temp_StockRowChangeEventHandler
9570         
9571         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9572          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9573         Public Overloads Sub AddTemp_StockRow(ByVal row As Temp_StockRow)
9574             Me.Rows.Add(row)
9575         End Sub
9576         
9577         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9578          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9579         Public Overloads Function AddTemp_StockRow(ByVal parentProductRowByFK_Temp_Stock_Product As ProductRow, ByVal Qty As Integer) As Temp_StockRow
9580             Dim rowTemp_StockRow As Temp_StockRow = CType(Me.NewRow,Temp_StockRow)
9581             Dim columnValuesArray() As Object = New Object() {Nothing, Qty}
9582             If (Not (parentProductRowByFK_Temp_Stock_Product) Is Nothing) Then
9583                 columnValuesArray(0) = parentProductRowByFK_Temp_Stock_Product(0)
9584             End If
9585             rowTemp_StockRow.ItemArray = columnValuesArray
9586             Me.Rows.Add(rowTemp_StockRow)
9587             Return rowTemp_StockRow
9588         End Function
9589         
9590         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9591          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9592         Public Function FindByProductID(ByVal ProductID As Integer) As Temp_StockRow
9593             Return CType(Me.Rows.Find(New Object() {ProductID}),Temp_StockRow)
9594         End Function
9595         
9596         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9597          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9598         Public Overrides Function Clone() As Global.System.Data.DataTable
9599             Dim cln As Temp_StockDataTable = CType(MyBase.Clone,Temp_StockDataTable)
9600             cln.InitVars
9601             Return cln
9602         End Function
9603         
9604         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9605          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9606         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
9607             Return New Temp_StockDataTable()
9608         End Function
9609         
9610         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9611          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9612         Friend Sub InitVars()
9613             Me.columnProductID = MyBase.Columns("ProductID")
9614             Me.columnQty = MyBase.Columns("Qty")
9615         End Sub
9616         
9617         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9618          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9619         Private Sub InitClass()
9620             Me.columnProductID = New Global.System.Data.DataColumn("ProductID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
9621             MyBase.Columns.Add(Me.columnProductID)
9622             Me.columnQty = New Global.System.Data.DataColumn("Qty", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
9623             MyBase.Columns.Add(Me.columnQty)
9624             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnProductID}, true))
9625             Me.columnProductID.AllowDBNull = false
9626             Me.columnProductID.Unique = true
9627             Me.columnQty.AllowDBNull = false
9628         End Sub
9629         
9630         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9631          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9632         Public Function NewTemp_StockRow() As Temp_StockRow
9633             Return CType(Me.NewRow,Temp_StockRow)
9634         End Function
9635         
9636         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9637          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9638         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
9639             Return New Temp_StockRow(builder)
9640         End Function
9641         
9642         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9643          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9644         Protected Overrides Function GetRowType() As Global.System.Type
9645             Return GetType(Temp_StockRow)
9646         End Function
9647         
9648         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9649          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9650         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9651             MyBase.OnRowChanged(e)
9652             If (Not (Me.Temp_StockRowChangedEvent) Is Nothing) Then
9653                 RaiseEvent Temp_StockRowChanged(Me, New Temp_StockRowChangeEvent(CType(e.Row,Temp_StockRow), e.Action))
9654             End If
9655         End Sub
9656         
9657         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9658          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9659         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9660             MyBase.OnRowChanging(e)
9661             If (Not (Me.Temp_StockRowChangingEvent) Is Nothing) Then
9662                 RaiseEvent Temp_StockRowChanging(Me, New Temp_StockRowChangeEvent(CType(e.Row,Temp_StockRow), e.Action))
9663             End If
9664         End Sub
9665         
9666         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9667          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9668         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9669             MyBase.OnRowDeleted(e)
9670             If (Not (Me.Temp_StockRowDeletedEvent) Is Nothing) Then
9671                 RaiseEvent Temp_StockRowDeleted(Me, New Temp_StockRowChangeEvent(CType(e.Row,Temp_StockRow), e.Action))
9672             End If
9673         End Sub
9674         
9675         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9676          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9677         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9678             MyBase.OnRowDeleting(e)
9679             If (Not (Me.Temp_StockRowDeletingEvent) Is Nothing) Then
9680                 RaiseEvent Temp_StockRowDeleting(Me, New Temp_StockRowChangeEvent(CType(e.Row,Temp_StockRow), e.Action))
9681             End If
9682         End Sub
9683         
9684         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9685          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9686         Public Sub RemoveTemp_StockRow(ByVal row As Temp_StockRow)
9687             Me.Rows.Remove(row)
9688         End Sub
9689         
9690         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9691          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9692         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
9693             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
9694             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
9695             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
9696             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
9697             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
9698             any1.MinOccurs = New Decimal(0)
9699             any1.MaxOccurs = Decimal.MaxValue
9700             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
9701             sequence.Items.Add(any1)
9702             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
9703             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
9704             any2.MinOccurs = New Decimal(1)
9705             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
9706             sequence.Items.Add(any2)
9707             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
9708             attribute1.Name = "namespace"
9709             attribute1.FixedValue = ds.Namespace
9710             type.Attributes.Add(attribute1)
9711             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
9712             attribute2.Name = "tableTypeName"
9713             attribute2.FixedValue = "Temp_StockDataTable"
9714             type.Attributes.Add(attribute2)
9715             type.Particle = sequence
9716             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
9717             If xs.Contains(dsSchema.TargetNamespace) Then
9718                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
9719                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
9720                 Try
9721                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
9722                     dsSchema.Write(s1)
9723                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
9724                     Do While schemas.MoveNext
9725                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
9726                         s2.SetLength(0)
9727                         schema.Write(s2)
9728                         If (s1.Length = s2.Length) Then
9729                             s1.Position = 0
9730                             s2.Position = 0
9731                             
9732                             Do While ((s1.Position <> s1.Length) _
9733                                         AndAlso (s1.ReadByte = s2.ReadByte))
9734                                 
9735                                 
9736                             Loop
9737                             If (s1.Position = s1.Length) Then
9738                                 Return type
9739                             End If
9740                         End If
9741                         
9742                     Loop
9743                 Finally
9744                     If (Not (s1) Is Nothing) Then
9745                         s1.Close
9746                     End If
9747                     If (Not (s2) Is Nothing) Then
9748                         s2.Close
9749                     End If
9750                 End Try
9751             End If
9752             xs.Add(dsSchema)
9753             Return type
9754         End Function
9755     End Class
9756     
9757     '''<summary>
9758     '''Represents the strongly named DataTable class.
9759     '''</summary>
9760     <Global.System.Serializable(), _
9761      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
9762     Partial Public Class VoucherDataTable
9763         Inherits Global.System.Data.TypedTableBase(Of VoucherRow)
9764         
9765         Private columnId As Global.System.Data.DataColumn
9766         
9767         Private columnVoucherNo As Global.System.Data.DataColumn
9768         
9769         Private columnName As Global.System.Data.DataColumn
9770         
9771         Private columnDate As Global.System.Data.DataColumn
9772         
9773         Private columnDetails As Global.System.Data.DataColumn
9774         
9775         Private columnGrandTotal As Global.System.Data.DataColumn
9776         
9777         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9778          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9779         Public Sub New()
9780             MyBase.New
9781             Me.TableName = "Voucher"
9782             Me.BeginInit
9783             Me.InitClass
9784             Me.EndInit
9785         End Sub
9786         
9787         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9788          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9789         Friend Sub New(ByVal table As Global.System.Data.DataTable)
9790             MyBase.New
9791             Me.TableName = table.TableName
9792             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
9793                 Me.CaseSensitive = table.CaseSensitive
9794             End If
9795             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
9796                 Me.Locale = table.Locale
9797             End If
9798             If (table.Namespace <> table.DataSet.Namespace) Then
9799                 Me.Namespace = table.Namespace
9800             End If
9801             Me.Prefix = table.Prefix
9802             Me.MinimumCapacity = table.MinimumCapacity
9803         End Sub
9804         
9805         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9806          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9807         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
9808             MyBase.New(info, context)
9809             Me.InitVars
9810         End Sub
9811         
9812         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9813          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9814         Public ReadOnly Property IdColumn() As Global.System.Data.DataColumn
9815             Get
9816                 Return Me.columnId
9817             End Get
9818         End Property
9819         
9820         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9821          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9822         Public ReadOnly Property VoucherNoColumn() As Global.System.Data.DataColumn
9823             Get
9824                 Return Me.columnVoucherNo
9825             End Get
9826         End Property
9827         
9828         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9829          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9830         Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn
9831             Get
9832                 Return Me.columnName
9833             End Get
9834         End Property
9835         
9836         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9837          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9838         Public ReadOnly Property DateColumn() As Global.System.Data.DataColumn
9839             Get
9840                 Return Me.columnDate
9841             End Get
9842         End Property
9843         
9844         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9845          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9846         Public ReadOnly Property DetailsColumn() As Global.System.Data.DataColumn
9847             Get
9848                 Return Me.columnDetails
9849             End Get
9850         End Property
9851         
9852         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9853          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9854         Public ReadOnly Property GrandTotalColumn() As Global.System.Data.DataColumn
9855             Get
9856                 Return Me.columnGrandTotal
9857             End Get
9858         End Property
9859         
9860         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9861          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
9862          Global.System.ComponentModel.Browsable(false)> _
9863         Public ReadOnly Property Count() As Integer
9864             Get
9865                 Return Me.Rows.Count
9866             End Get
9867         End Property
9868         
9869         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9870          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9871         Public Default ReadOnly Property Item(ByVal index As Integer) As VoucherRow
9872             Get
9873                 Return CType(Me.Rows(index),VoucherRow)
9874             End Get
9875         End Property
9876         
9877         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9878         Public Event VoucherRowChanging As VoucherRowChangeEventHandler
9879         
9880         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9881         Public Event VoucherRowChanged As VoucherRowChangeEventHandler
9882         
9883         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9884         Public Event VoucherRowDeleting As VoucherRowChangeEventHandler
9885         
9886         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9887         Public Event VoucherRowDeleted As VoucherRowChangeEventHandler
9888         
9889         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9890          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9891         Public Overloads Sub AddVoucherRow(ByVal row As VoucherRow)
9892             Me.Rows.Add(row)
9893         End Sub
9894         
9895         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9896          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9897         Public Overloads Function AddVoucherRow(ByVal Id As Integer, ByVal VoucherNo As String, ByVal Name As String, ByVal _Date As Date, ByVal Details As String, ByVal GrandTotal As Decimal) As VoucherRow
9898             Dim rowVoucherRow As VoucherRow = CType(Me.NewRow,VoucherRow)
9899             Dim columnValuesArray() As Object = New Object() {Id, VoucherNo, Name, _Date, Details, GrandTotal}
9900             rowVoucherRow.ItemArray = columnValuesArray
9901             Me.Rows.Add(rowVoucherRow)
9902             Return rowVoucherRow
9903         End Function
9904         
9905         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9906          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9907         Public Function FindById(ByVal Id As Integer) As VoucherRow
9908             Return CType(Me.Rows.Find(New Object() {Id}),VoucherRow)
9909         End Function
9910         
9911         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9912          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9913         Public Overrides Function Clone() As Global.System.Data.DataTable
9914             Dim cln As VoucherDataTable = CType(MyBase.Clone,VoucherDataTable)
9915             cln.InitVars
9916             Return cln
9917         End Function
9918         
9919         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9920          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9921         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
9922             Return New VoucherDataTable()
9923         End Function
9924         
9925         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9926          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9927         Friend Sub InitVars()
9928             Me.columnId = MyBase.Columns("Id")
9929             Me.columnVoucherNo = MyBase.Columns("VoucherNo")
9930             Me.columnName = MyBase.Columns("Name")
9931             Me.columnDate = MyBase.Columns("Date")
9932             Me.columnDetails = MyBase.Columns("Details")
9933             Me.columnGrandTotal = MyBase.Columns("GrandTotal")
9934         End Sub
9935         
9936         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9937          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9938         Private Sub InitClass()
9939             Me.columnId = New Global.System.Data.DataColumn("Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
9940             MyBase.Columns.Add(Me.columnId)
9941             Me.columnVoucherNo = New Global.System.Data.DataColumn("VoucherNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9942             MyBase.Columns.Add(Me.columnVoucherNo)
9943             Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9944             MyBase.Columns.Add(Me.columnName)
9945             Me.columnDate = New Global.System.Data.DataColumn("Date", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
9946             Me.columnDate.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "DateColumn")
9947             Me.columnDate.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnDate")
9948             Me.columnDate.ExtendedProperties.Add("Generator_UserColumnName", "Date")
9949             MyBase.Columns.Add(Me.columnDate)
9950             Me.columnDetails = New Global.System.Data.DataColumn("Details", GetType(String), Nothing, Global.System.Data.MappingType.Element)
9951             MyBase.Columns.Add(Me.columnDetails)
9952             Me.columnGrandTotal = New Global.System.Data.DataColumn("GrandTotal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
9953             MyBase.Columns.Add(Me.columnGrandTotal)
9954             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true))
9955             Me.columnId.AllowDBNull = false
9956             Me.columnId.Unique = true
9957             Me.columnVoucherNo.AllowDBNull = false
9958             Me.columnVoucherNo.MaxLength = 30
9959             Me.columnName.MaxLength = 150
9960             Me.columnDate.AllowDBNull = false
9961             Me.columnDetails.MaxLength = 10
9962             Me.columnGrandTotal.AllowDBNull = false
9963         End Sub
9964         
9965         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9966          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9967         Public Function NewVoucherRow() As VoucherRow
9968             Return CType(Me.NewRow,VoucherRow)
9969         End Function
9970         
9971         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9972          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9973         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
9974             Return New VoucherRow(builder)
9975         End Function
9976         
9977         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9978          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9979         Protected Overrides Function GetRowType() As Global.System.Type
9980             Return GetType(VoucherRow)
9981         End Function
9982         
9983         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9984          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9985         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9986             MyBase.OnRowChanged(e)
9987             If (Not (Me.VoucherRowChangedEvent) Is Nothing) Then
9988                 RaiseEvent VoucherRowChanged(Me, New VoucherRowChangeEvent(CType(e.Row,VoucherRow), e.Action))
9989             End If
9990         End Sub
9991         
9992         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9993          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9994         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
9995             MyBase.OnRowChanging(e)
9996             If (Not (Me.VoucherRowChangingEvent) Is Nothing) Then
9997                 RaiseEvent VoucherRowChanging(Me, New VoucherRowChangeEvent(CType(e.Row,VoucherRow), e.Action))
9998             End If
9999         End Sub
10000         
10001         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10002          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10003         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
10004             MyBase.OnRowDeleted(e)
10005             If (Not (Me.VoucherRowDeletedEvent) Is Nothing) Then
10006                 RaiseEvent VoucherRowDeleted(Me, New VoucherRowChangeEvent(CType(e.Row,VoucherRow), e.Action))
10007             End If
10008         End Sub
10009         
10010         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10011          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10012         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
10013             MyBase.OnRowDeleting(e)
10014             If (Not (Me.VoucherRowDeletingEvent) Is Nothing) Then
10015                 RaiseEvent VoucherRowDeleting(Me, New VoucherRowChangeEvent(CType(e.Row,VoucherRow), e.Action))
10016             End If
10017         End Sub
10018         
10019         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10020          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10021         Public Sub RemoveVoucherRow(ByVal row As VoucherRow)
10022             Me.Rows.Remove(row)
10023         End Sub
10024         
10025         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10026          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10027         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
10028             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
10029             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
10030             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
10031             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
10032             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
10033             any1.MinOccurs = New Decimal(0)
10034             any1.MaxOccurs = Decimal.MaxValue
10035             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
10036             sequence.Items.Add(any1)
10037             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
10038             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
10039             any2.MinOccurs = New Decimal(1)
10040             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
10041             sequence.Items.Add(any2)
10042             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
10043             attribute1.Name = "namespace"
10044             attribute1.FixedValue = ds.Namespace
10045             type.Attributes.Add(attribute1)
10046             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
10047             attribute2.Name = "tableTypeName"
10048             attribute2.FixedValue = "VoucherDataTable"
10049             type.Attributes.Add(attribute2)
10050             type.Particle = sequence
10051             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
10052             If xs.Contains(dsSchema.TargetNamespace) Then
10053                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
10054                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
10055                 Try
10056                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
10057                     dsSchema.Write(s1)
10058                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
10059                     Do While schemas.MoveNext
10060                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
10061                         s2.SetLength(0)
10062                         schema.Write(s2)
10063                         If (s1.Length = s2.Length) Then
10064                             s1.Position = 0
10065                             s2.Position = 0
10066                             
10067                             Do While ((s1.Position <> s1.Length) _
10068                                         AndAlso (s1.ReadByte = s2.ReadByte))
10069                                 
10070                                 
10071                             Loop
10072                             If (s1.Position = s1.Length) Then
10073                                 Return type
10074                             End If
10075                         End If
10076                         
10077                     Loop
10078                 Finally
10079                     If (Not (s1) Is Nothing) Then
10080                         s1.Close
10081                     End If
10082                     If (Not (s2) Is Nothing) Then
10083                         s2.Close
10084                     End If
10085                 End Try
10086             End If
10087             xs.Add(dsSchema)
10088             Return type
10089         End Function
10090     End Class
10091     
10092     '''<summary>
10093     '''Represents the strongly named DataTable class.
10094     '''</summary>
10095     <Global.System.Serializable(), _
10096      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
10097     Partial Public Class Voucher_OtherDetailsDataTable
10098         Inherits Global.System.Data.TypedTableBase(Of Voucher_OtherDetailsRow)
10099         
10100         Private columnVD_ID As Global.System.Data.DataColumn
10101         
10102         Private columnVoucherID As Global.System.Data.DataColumn
10103         
10104         Private columnParticulars As Global.System.Data.DataColumn
10105         
10106         Private columnAmount As Global.System.Data.DataColumn
10107         
10108         Private columnNote As Global.System.Data.DataColumn
10109         
10110         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10111          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10112         Public Sub New()
10113             MyBase.New
10114             Me.TableName = "Voucher_OtherDetails"
10115             Me.BeginInit
10116             Me.InitClass
10117             Me.EndInit
10118         End Sub
10119         
10120         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10121          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10122         Friend Sub New(ByVal table As Global.System.Data.DataTable)
10123             MyBase.New
10124             Me.TableName = table.TableName
10125             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
10126                 Me.CaseSensitive = table.CaseSensitive
10127             End If
10128             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
10129                 Me.Locale = table.Locale
10130             End If
10131             If (table.Namespace <> table.DataSet.Namespace) Then
10132                 Me.Namespace = table.Namespace
10133             End If
10134             Me.Prefix = table.Prefix
10135             Me.MinimumCapacity = table.MinimumCapacity
10136         End Sub
10137         
10138         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10139          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10140         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
10141             MyBase.New(info, context)
10142             Me.InitVars
10143         End Sub
10144         
10145         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10146          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10147         Public ReadOnly Property VD_IDColumn() As Global.System.Data.DataColumn
10148             Get
10149                 Return Me.columnVD_ID
10150             End Get
10151         End Property
10152         
10153         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10154          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10155         Public ReadOnly Property VoucherIDColumn() As Global.System.Data.DataColumn
10156             Get
10157                 Return Me.columnVoucherID
10158             End Get
10159         End Property
10160         
10161         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10162          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10163         Public ReadOnly Property ParticularsColumn() As Global.System.Data.DataColumn
10164             Get
10165                 Return Me.columnParticulars
10166             End Get
10167         End Property
10168         
10169         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10170          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10171         Public ReadOnly Property AmountColumn() As Global.System.Data.DataColumn
10172             Get
10173                 Return Me.columnAmount
10174             End Get
10175         End Property
10176         
10177         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10178          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10179         Public ReadOnly Property NoteColumn() As Global.System.Data.DataColumn
10180             Get
10181                 Return Me.columnNote
10182             End Get
10183         End Property
10184         
10185         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10186          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
10187          Global.System.ComponentModel.Browsable(false)> _
10188         Public ReadOnly Property Count() As Integer
10189             Get
10190                 Return Me.Rows.Count
10191             End Get
10192         End Property
10193         
10194         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10195          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10196         Public Default ReadOnly Property Item(ByVal index As Integer) As Voucher_OtherDetailsRow
10197             Get
10198                 Return CType(Me.Rows(index),Voucher_OtherDetailsRow)
10199             End Get
10200         End Property
10201         
10202         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10203         Public Event Voucher_OtherDetailsRowChanging As Voucher_OtherDetailsRowChangeEventHandler
10204         
10205         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10206         Public Event Voucher_OtherDetailsRowChanged As Voucher_OtherDetailsRowChangeEventHandler
10207         
10208         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10209         Public Event Voucher_OtherDetailsRowDeleting As Voucher_OtherDetailsRowChangeEventHandler
10210         
10211         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10212         Public Event Voucher_OtherDetailsRowDeleted As Voucher_OtherDetailsRowChangeEventHandler
10213         
10214         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10215          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10216         Public Overloads Sub AddVoucher_OtherDetailsRow(ByVal row As Voucher_OtherDetailsRow)
10217             Me.Rows.Add(row)
10218         End Sub
10219         
10220         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10221          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10222         Public Overloads Function AddVoucher_OtherDetailsRow(ByVal parentVoucherRowByFK_Voucher_OtherDetails_Voucher As VoucherRow, ByVal Particulars As String, ByVal Amount As Decimal, ByVal Note As String) As Voucher_OtherDetailsRow
10223             Dim rowVoucher_OtherDetailsRow As Voucher_OtherDetailsRow = CType(Me.NewRow,Voucher_OtherDetailsRow)
10224             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Particulars, Amount, Note}
10225             If (Not (parentVoucherRowByFK_Voucher_OtherDetails_Voucher) Is Nothing) Then
10226                 columnValuesArray(1) = parentVoucherRowByFK_Voucher_OtherDetails_Voucher(0)
10227             End If
10228             rowVoucher_OtherDetailsRow.ItemArray = columnValuesArray
10229             Me.Rows.Add(rowVoucher_OtherDetailsRow)
10230             Return rowVoucher_OtherDetailsRow
10231         End Function
10232         
10233         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10234          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10235         Public Function FindByVD_ID(ByVal VD_ID As Integer) As Voucher_OtherDetailsRow
10236             Return CType(Me.Rows.Find(New Object() {VD_ID}),Voucher_OtherDetailsRow)
10237         End Function
10238         
10239         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10240          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10241         Public Overrides Function Clone() As Global.System.Data.DataTable
10242             Dim cln As Voucher_OtherDetailsDataTable = CType(MyBase.Clone,Voucher_OtherDetailsDataTable)
10243             cln.InitVars
10244             Return cln
10245         End Function
10246         
10247         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10248          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10249         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
10250             Return New Voucher_OtherDetailsDataTable()
10251         End Function
10252         
10253         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10254          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10255         Friend Sub InitVars()
10256             Me.columnVD_ID = MyBase.Columns("VD_ID")
10257             Me.columnVoucherID = MyBase.Columns("VoucherID")
10258             Me.columnParticulars = MyBase.Columns("Particulars")
10259             Me.columnAmount = MyBase.Columns("Amount")
10260             Me.columnNote = MyBase.Columns("Note")
10261         End Sub
10262         
10263         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10264          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10265         Private Sub InitClass()
10266             Me.columnVD_ID = New Global.System.Data.DataColumn("VD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
10267             MyBase.Columns.Add(Me.columnVD_ID)
10268             Me.columnVoucherID = New Global.System.Data.DataColumn("VoucherID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
10269             MyBase.Columns.Add(Me.columnVoucherID)
10270             Me.columnParticulars = New Global.System.Data.DataColumn("Particulars", GetType(String), Nothing, Global.System.Data.MappingType.Element)
10271             MyBase.Columns.Add(Me.columnParticulars)
10272             Me.columnAmount = New Global.System.Data.DataColumn("Amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
10273             MyBase.Columns.Add(Me.columnAmount)
10274             Me.columnNote = New Global.System.Data.DataColumn("Note", GetType(String), Nothing, Global.System.Data.MappingType.Element)
10275             MyBase.Columns.Add(Me.columnNote)
10276             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnVD_ID}, true))
10277             Me.columnVD_ID.AutoIncrement = true
10278             Me.columnVD_ID.AutoIncrementSeed = -1
10279             Me.columnVD_ID.AutoIncrementStep = -1
10280             Me.columnVD_ID.AllowDBNull = false
10281             Me.columnVD_ID.ReadOnly = true
10282             Me.columnVD_ID.Unique = true
10283             Me.columnVoucherID.AllowDBNull = false
10284             Me.columnParticulars.AllowDBNull = false
10285             Me.columnParticulars.MaxLength = 200
10286             Me.columnAmount.AllowDBNull = false
10287             Me.columnNote.MaxLength = 2147483647
10288         End Sub
10289         
10290         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10291          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10292         Public Function NewVoucher_OtherDetailsRow() As Voucher_OtherDetailsRow
10293             Return CType(Me.NewRow,Voucher_OtherDetailsRow)
10294         End Function
10295         
10296         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10297          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10298         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
10299             Return New Voucher_OtherDetailsRow(builder)
10300         End Function
10301         
10302         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10303          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10304         Protected Overrides Function GetRowType() As Global.System.Type
10305             Return GetType(Voucher_OtherDetailsRow)
10306         End Function
10307         
10308         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10309          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10310         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
10311             MyBase.OnRowChanged(e)
10312             If (Not (Me.Voucher_OtherDetailsRowChangedEvent) Is Nothing) Then
10313                 RaiseEvent Voucher_OtherDetailsRowChanged(Me, New Voucher_OtherDetailsRowChangeEvent(CType(e.Row,Voucher_OtherDetailsRow), e.Action))
10314             End If
10315         End Sub
10316         
10317         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10318          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10319         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
10320             MyBase.OnRowChanging(e)
10321             If (Not (Me.Voucher_OtherDetailsRowChangingEvent) Is Nothing) Then
10322                 RaiseEvent Voucher_OtherDetailsRowChanging(Me, New Voucher_OtherDetailsRowChangeEvent(CType(e.Row,Voucher_OtherDetailsRow), e.Action))
10323             End If
10324         End Sub
10325         
10326         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10327          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10328         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
10329             MyBase.OnRowDeleted(e)
10330             If (Not (Me.Voucher_OtherDetailsRowDeletedEvent) Is Nothing) Then
10331                 RaiseEvent Voucher_OtherDetailsRowDeleted(Me, New Voucher_OtherDetailsRowChangeEvent(CType(e.Row,Voucher_OtherDetailsRow), e.Action))
10332             End If
10333         End Sub
10334         
10335         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10336          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10337         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
10338             MyBase.OnRowDeleting(e)
10339             If (Not (Me.Voucher_OtherDetailsRowDeletingEvent) Is Nothing) Then
10340                 RaiseEvent Voucher_OtherDetailsRowDeleting(Me, New Voucher_OtherDetailsRowChangeEvent(CType(e.Row,Voucher_OtherDetailsRow), e.Action))
10341             End If
10342         End Sub
10343         
10344         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10345          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10346         Public Sub RemoveVoucher_OtherDetailsRow(ByVal row As Voucher_OtherDetailsRow)
10347             Me.Rows.Remove(row)
10348         End Sub
10349         
10350         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10351          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10352         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
10353             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
10354             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
10355             Dim ds As SIS_DBDataSet2 = New SIS_DBDataSet2()
10356             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
10357             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
10358             any1.MinOccurs = New Decimal(0)
10359             any1.MaxOccurs = Decimal.MaxValue
10360             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
10361             sequence.Items.Add(any1)
10362             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
10363             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
10364             any2.MinOccurs = New Decimal(1)
10365             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
10366             sequence.Items.Add(any2)
10367             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
10368             attribute1.Name = "namespace"
10369             attribute1.FixedValue = ds.Namespace
10370             type.Attributes.Add(attribute1)
10371             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
10372             attribute2.Name = "tableTypeName"
10373             attribute2.FixedValue = "Voucher_OtherDetailsDataTable"
10374             type.Attributes.Add(attribute2)
10375             type.Particle = sequence
10376             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
10377             If xs.Contains(dsSchema.TargetNamespace) Then
10378                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
10379                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
10380                 Try
10381                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
10382                     dsSchema.Write(s1)
10383                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
10384                     Do While schemas.MoveNext
10385                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
10386                         s2.SetLength(0)
10387                         schema.Write(s2)
10388                         If (s1.Length = s2.Length) Then
10389                             s1.Position = 0
10390                             s2.Position = 0
10391                             
10392                             Do While ((s1.Position <> s1.Length) _
10393                                         AndAlso (s1.ReadByte = s2.ReadByte))
10394                                 
10395                                 
10396                             Loop
10397                             If (s1.Position = s1.Length) Then
10398                                 Return type
10399                             End If
10400                         End If
10401                         
10402                     Loop
10403                 Finally
10404                     If (Not (s1) Is Nothing) Then
10405                         s1.Close
10406                     End If
10407                     If (Not (s2) Is Nothing) Then
10408                         s2.Close
10409                     End If
10410                 End Try
10411             End If
10412             xs.Add(dsSchema)
10413             Return type
10414         End Function
10415     End Class
10416     
10417     '''<summary>
10418     '''Represents strongly named DataRow class.
10419     '''</summary>
10420     Partial Public Class ActivationRow
10421         Inherits Global.System.Data.DataRow
10422         
10423         Private tableActivation As ActivationDataTable
10424         
10425         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10426          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10427         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
10428             MyBase.New(rb)
10429             Me.tableActivation = CType(Me.Table,ActivationDataTable)
10430         End Sub
10431         
10432         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10433          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10434         Public Property ID() As Integer
10435             Get
10436                 Return CType(Me(Me.tableActivation.IDColumn),Integer)
10437             End Get
10438             Set
10439                 Me(Me.tableActivation.IDColumn) = value
10440             End Set
10441         End Property
10442         
10443         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10444          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10445         Public Property HardwareID() As String
10446             Get
10447                 Return CType(Me(Me.tableActivation.HardwareIDColumn),String)
10448             End Get
10449             Set
10450                 Me(Me.tableActivation.HardwareIDColumn) = value
10451             End Set
10452         End Property
10453         
10454         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10455          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10456         Public Property SerialNo() As String
10457             Get
10458                 Return CType(Me(Me.tableActivation.SerialNoColumn),String)
10459             End Get
10460             Set
10461                 Me(Me.tableActivation.SerialNoColumn) = value
10462             End Set
10463         End Property
10464         
10465         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10466          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10467         Public Property ActivationID() As String
10468             Get
10469                 Return CType(Me(Me.tableActivation.ActivationIDColumn),String)
10470             End Get
10471             Set
10472                 Me(Me.tableActivation.ActivationIDColumn) = value
10473             End Set
10474         End Property
10475     End Class
10476     
10477     '''<summary>
10478     '''Represents strongly named DataRow class.
10479     '''</summary>
10480     Partial Public Class CategoryRow
10481         Inherits Global.System.Data.DataRow
10482         
10483         Private tableCategory As CategoryDataTable
10484         
10485         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10486          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10487         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
10488             MyBase.New(rb)
10489             Me.tableCategory = CType(Me.Table,CategoryDataTable)
10490         End Sub
10491         
10492         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10493          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10494         Public Property CategoryName() As String
10495             Get
10496                 Return CType(Me(Me.tableCategory.CategoryNameColumn),String)
10497             End Get
10498             Set
10499                 Me(Me.tableCategory.CategoryNameColumn) = value
10500             End Set
10501         End Property
10502         
10503         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10504          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10505         Public Function GetSubCategoryRows() As SubCategoryRow()
10506             If (Me.Table.ChildRelations("FK_SubCategory_Category") Is Nothing) Then
10507                 Return New SubCategoryRow(-1) {}
10508             Else
10509                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_SubCategory_Category")),SubCategoryRow())
10510             End If
10511         End Function
10512     End Class
10513     
10514     '''<summary>
10515     '''Represents strongly named DataRow class.
10516     '''</summary>
10517     Partial Public Class CompanyRow
10518         Inherits Global.System.Data.DataRow
10519         
10520         Private tableCompany As CompanyDataTable
10521         
10522         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10523          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10524         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
10525             MyBase.New(rb)
10526             Me.tableCompany = CType(Me.Table,CompanyDataTable)
10527         End Sub
10528         
10529         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10530          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10531         Public Property ID() As Integer
10532             Get
10533                 Return CType(Me(Me.tableCompany.IDColumn),Integer)
10534             End Get
10535             Set
10536                 Me(Me.tableCompany.IDColumn) = value
10537             End Set
10538         End Property
10539         
10540         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10541          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10542         Public Property CompanyName() As String
10543             Get
10544                 Return CType(Me(Me.tableCompany.CompanyNameColumn),String)
10545             End Get
10546             Set
10547                 Me(Me.tableCompany.CompanyNameColumn) = value
10548             End Set
10549         End Property
10550         
10551         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10552          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10553         Public Property Address() As String
10554             Get
10555                 Return CType(Me(Me.tableCompany.AddressColumn),String)
10556             End Get
10557             Set
10558                 Me(Me.tableCompany.AddressColumn) = value
10559             End Set
10560         End Property
10561         
10562         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10563          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10564         Public Property ContactNo() As String
10565             Get
10566                 Return CType(Me(Me.tableCompany.ContactNoColumn),String)
10567             End Get
10568             Set
10569                 Me(Me.tableCompany.ContactNoColumn) = value
10570             End Set
10571         End Property
10572         
10573         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10574          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10575         Public Property EmailID() As String
10576             Get
10577                 Return CType(Me(Me.tableCompany.EmailIDColumn),String)
10578             End Get
10579             Set
10580                 Me(Me.tableCompany.EmailIDColumn) = value
10581             End Set
10582         End Property
10583         
10584         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10585          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10586         Public Property Logo() As Byte()
10587             Get
10588                 Return CType(Me(Me.tableCompany.LogoColumn),Byte())
10589             End Get
10590             Set
10591                 Me(Me.tableCompany.LogoColumn) = value
10592             End Set
10593         End Property
10594         
10595         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10596          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10597         Public Property TIN() As String
10598             Get
10599                 Try
10600                     Return CType(Me(Me.tableCompany.TINColumn),String)
10601                 Catch e As Global.System.InvalidCastException
10602                     Throw New Global.System.Data.StrongTypingException("The value for column 'TIN' in table 'Company' is DBNull.", e)
10603                 End Try
10604             End Get
10605             Set
10606                 Me(Me.tableCompany.TINColumn) = value
10607             End Set
10608         End Property
10609         
10610         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10611          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10612         Public Property STNo() As String
10613             Get
10614                 Try
10615                     Return CType(Me(Me.tableCompany.STNoColumn),String)
10616                 Catch e As Global.System.InvalidCastException
10617                     Throw New Global.System.Data.StrongTypingException("The value for column 'STNo' in table 'Company' is DBNull.", e)
10618                 End Try
10619             End Get
10620             Set
10621                 Me(Me.tableCompany.STNoColumn) = value
10622             End Set
10623         End Property
10624         
10625         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10626          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10627         Public Property CIN() As String
10628             Get
10629                 Try
10630                     Return CType(Me(Me.tableCompany.CINColumn),String)
10631                 Catch e As Global.System.InvalidCastException
10632                     Throw New Global.System.Data.StrongTypingException("The value for column 'CIN' in table 'Company' is DBNull.", e)
10633                 End Try
10634             End Get
10635             Set
10636                 Me(Me.tableCompany.CINColumn) = value
10637             End Set
10638         End Property
10639         
10640         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10641          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10642         Public Function IsTINNull() As Boolean
10643             Return Me.IsNull(Me.tableCompany.TINColumn)
10644         End Function
10645         
10646         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10647          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10648         Public Sub SetTINNull()
10649             Me(Me.tableCompany.TINColumn) = Global.System.Convert.DBNull
10650         End Sub
10651         
10652         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10653          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10654         Public Function IsSTNoNull() As Boolean
10655             Return Me.IsNull(Me.tableCompany.STNoColumn)
10656         End Function
10657         
10658         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10659          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10660         Public Sub SetSTNoNull()
10661             Me(Me.tableCompany.STNoColumn) = Global.System.Convert.DBNull
10662         End Sub
10663         
10664         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10665          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10666         Public Function IsCINNull() As Boolean
10667             Return Me.IsNull(Me.tableCompany.CINColumn)
10668         End Function
10669         
10670         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10671          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10672         Public Sub SetCINNull()
10673             Me(Me.tableCompany.CINColumn) = Global.System.Convert.DBNull
10674         End Sub
10675     End Class
10676     
10677     '''<summary>
10678     '''Represents strongly named DataRow class.
10679     '''</summary>
10680     Partial Public Class Company_ContactsRow
10681         Inherits Global.System.Data.DataRow
10682         
10683         Private tableCompany_Contacts As Company_ContactsDataTable
10684         
10685         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10686          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10687         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
10688             MyBase.New(rb)
10689             Me.tableCompany_Contacts = CType(Me.Table,Company_ContactsDataTable)
10690         End Sub
10691         
10692         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10693          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10694         Public Property Id() As Integer
10695             Get
10696                 Return CType(Me(Me.tableCompany_Contacts.IdColumn),Integer)
10697             End Get
10698             Set
10699                 Me(Me.tableCompany_Contacts.IdColumn) = value
10700             End Set
10701         End Property
10702         
10703         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10704          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10705         Public Property ContactPerson() As String
10706             Get
10707                 Return CType(Me(Me.tableCompany_Contacts.ContactPersonColumn),String)
10708             End Get
10709             Set
10710                 Me(Me.tableCompany_Contacts.ContactPersonColumn) = value
10711             End Set
10712         End Property
10713         
10714         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10715          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10716         Public Property ContactNo() As String
10717             Get
10718                 Return CType(Me(Me.tableCompany_Contacts.ContactNoColumn),String)
10719             End Get
10720             Set
10721                 Me(Me.tableCompany_Contacts.ContactNoColumn) = value
10722             End Set
10723         End Property
10724     End Class
10725     
10726     '''<summary>
10727     '''Represents strongly named DataRow class.
10728     '''</summary>
10729     Partial Public Class CustomerRow
10730         Inherits Global.System.Data.DataRow
10731         
10732         Private tableCustomer As CustomerDataTable
10733         
10734         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10735          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10736         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
10737             MyBase.New(rb)
10738             Me.tableCustomer = CType(Me.Table,CustomerDataTable)
10739         End Sub
10740         
10741         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10742          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10743         Public Property ID() As Integer
10744             Get
10745                 Return CType(Me(Me.tableCustomer.IDColumn),Integer)
10746             End Get
10747             Set
10748                 Me(Me.tableCustomer.IDColumn) = value
10749             End Set
10750         End Property
10751         
10752         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10753          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10754         Public Property CustomerID() As String
10755             Get
10756                 Try
10757                     Return CType(Me(Me.tableCustomer.CustomerIDColumn),String)
10758                 Catch e As Global.System.InvalidCastException
10759                     Throw New Global.System.Data.StrongTypingException("The value for column 'CustomerID' in table 'Customer' is DBNull.", e)
10760                 End Try
10761             End Get
10762             Set
10763                 Me(Me.tableCustomer.CustomerIDColumn) = value
10764             End Set
10765         End Property
10766         
10767         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10768          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10769         Public Property Name() As String
10770             Get
10771                 Try
10772                     Return CType(Me(Me.tableCustomer.NameColumn),String)
10773                 Catch e As Global.System.InvalidCastException
10774                     Throw New Global.System.Data.StrongTypingException("The value for column 'Name' in table 'Customer' is DBNull.", e)
10775                 End Try
10776             End Get
10777             Set
10778                 Me(Me.tableCustomer.NameColumn) = value
10779             End Set
10780         End Property
10781         
10782         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10783          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10784         Public Property Gender() As String
10785             Get
10786                 Try
10787                     Return CType(Me(Me.tableCustomer.GenderColumn),String)
10788                 Catch e As Global.System.InvalidCastException
10789                     Throw New Global.System.Data.StrongTypingException("The value for column 'Gender' in table 'Customer' is DBNull.", e)
10790                 End Try
10791             End Get
10792             Set
10793                 Me(Me.tableCustomer.GenderColumn) = value
10794             End Set
10795         End Property
10796         
10797         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10798          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10799         Public Property Address() As String
10800             Get
10801                 Try
10802                     Return CType(Me(Me.tableCustomer.AddressColumn),String)
10803                 Catch e As Global.System.InvalidCastException
10804                     Throw New Global.System.Data.StrongTypingException("The value for column 'Address' in table 'Customer' is DBNull.", e)
10805                 End Try
10806             End Get
10807             Set
10808                 Me(Me.tableCustomer.AddressColumn) = value
10809             End Set
10810         End Property
10811         
10812         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10813          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10814         Public Property City() As String
10815             Get
10816                 Try
10817                     Return CType(Me(Me.tableCustomer.CityColumn),String)
10818                 Catch e As Global.System.InvalidCastException
10819                     Throw New Global.System.Data.StrongTypingException("The value for column 'City' in table 'Customer' is DBNull.", e)
10820                 End Try
10821             End Get
10822             Set
10823                 Me(Me.tableCustomer.CityColumn) = value
10824             End Set
10825         End Property
10826         
10827         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10828          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10829         Public Property State() As String
10830             Get
10831                 Try
10832                     Return CType(Me(Me.tableCustomer.StateColumn),String)
10833                 Catch e As Global.System.InvalidCastException
10834                     Throw New Global.System.Data.StrongTypingException("The value for column 'State' in table 'Customer' is DBNull.", e)
10835                 End Try
10836             End Get
10837             Set
10838                 Me(Me.tableCustomer.StateColumn) = value
10839             End Set
10840         End Property
10841         
10842         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10843          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10844         Public Property ZipCode() As String
10845             Get
10846                 Try
10847                     Return CType(Me(Me.tableCustomer.ZipCodeColumn),String)
10848                 Catch e As Global.System.InvalidCastException
10849                     Throw New Global.System.Data.StrongTypingException("The value for column 'ZipCode' in table 'Customer' is DBNull.", e)
10850                 End Try
10851             End Get
10852             Set
10853                 Me(Me.tableCustomer.ZipCodeColumn) = value
10854             End Set
10855         End Property
10856         
10857         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10858          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10859         Public Property ContactNo() As String
10860             Get
10861                 Try
10862                     Return CType(Me(Me.tableCustomer.ContactNoColumn),String)
10863                 Catch e As Global.System.InvalidCastException
10864                     Throw New Global.System.Data.StrongTypingException("The value for column 'ContactNo' in table 'Customer' is DBNull.", e)
10865                 End Try
10866             End Get
10867             Set
10868                 Me(Me.tableCustomer.ContactNoColumn) = value
10869             End Set
10870         End Property
10871         
10872         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10873          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10874         Public Property EmailID() As String
10875             Get
10876                 Try
10877                     Return CType(Me(Me.tableCustomer.EmailIDColumn),String)
10878                 Catch e As Global.System.InvalidCastException
10879                     Throw New Global.System.Data.StrongTypingException("The value for column 'EmailID' in table 'Customer' is DBNull.", e)
10880                 End Try
10881             End Get
10882             Set
10883                 Me(Me.tableCustomer.EmailIDColumn) = value
10884             End Set
10885         End Property
10886         
10887         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10888          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10889         Public Property Remarks() As String
10890             Get
10891                 Try
10892                     Return CType(Me(Me.tableCustomer.RemarksColumn),String)
10893                 Catch e As Global.System.InvalidCastException
10894                     Throw New Global.System.Data.StrongTypingException("The value for column 'Remarks' in table 'Customer' is DBNull.", e)
10895                 End Try
10896             End Get
10897             Set
10898                 Me(Me.tableCustomer.RemarksColumn) = value
10899             End Set
10900         End Property
10901         
10902         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10903          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10904         Public Property Photo() As Byte()
10905             Get
10906                 Try
10907                     Return CType(Me(Me.tableCustomer.PhotoColumn),Byte())
10908                 Catch e As Global.System.InvalidCastException
10909                     Throw New Global.System.Data.StrongTypingException("The value for column 'Photo' in table 'Customer' is DBNull.", e)
10910                 End Try
10911             End Get
10912             Set
10913                 Me(Me.tableCustomer.PhotoColumn) = value
10914             End Set
10915         End Property
10916         
10917         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10918          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10919         Public Property CustomerType() As String
10920             Get
10921                 Try
10922                     Return CType(Me(Me.tableCustomer.CustomerTypeColumn),String)
10923                 Catch e As Global.System.InvalidCastException
10924                     Throw New Global.System.Data.StrongTypingException("The value for column 'CustomerType' in table 'Customer' is DBNull.", e)
10925                 End Try
10926             End Get
10927             Set
10928                 Me(Me.tableCustomer.CustomerTypeColumn) = value
10929             End Set
10930         End Property
10931         
10932         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10933          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10934         Public Function IsCustomerIDNull() As Boolean
10935             Return Me.IsNull(Me.tableCustomer.CustomerIDColumn)
10936         End Function
10937         
10938         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10939          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10940         Public Sub SetCustomerIDNull()
10941             Me(Me.tableCustomer.CustomerIDColumn) = Global.System.Convert.DBNull
10942         End Sub
10943         
10944         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10945          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10946         Public Function IsNameNull() As Boolean
10947             Return Me.IsNull(Me.tableCustomer.NameColumn)
10948         End Function
10949         
10950         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10951          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10952         Public Sub SetNameNull()
10953             Me(Me.tableCustomer.NameColumn) = Global.System.Convert.DBNull
10954         End Sub
10955         
10956         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10957          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10958         Public Function IsGenderNull() As Boolean
10959             Return Me.IsNull(Me.tableCustomer.GenderColumn)
10960         End Function
10961         
10962         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10963          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10964         Public Sub SetGenderNull()
10965             Me(Me.tableCustomer.GenderColumn) = Global.System.Convert.DBNull
10966         End Sub
10967         
10968         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10969          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10970         Public Function IsAddressNull() As Boolean
10971             Return Me.IsNull(Me.tableCustomer.AddressColumn)
10972         End Function
10973         
10974         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10975          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10976         Public Sub SetAddressNull()
10977             Me(Me.tableCustomer.AddressColumn) = Global.System.Convert.DBNull
10978         End Sub
10979         
10980         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10981          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10982         Public Function IsCityNull() As Boolean
10983             Return Me.IsNull(Me.tableCustomer.CityColumn)
10984         End Function
10985         
10986         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10987          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10988         Public Sub SetCityNull()
10989             Me(Me.tableCustomer.CityColumn) = Global.System.Convert.DBNull
10990         End Sub
10991         
10992         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10993          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10994         Public Function IsStateNull() As Boolean
10995             Return Me.IsNull(Me.tableCustomer.StateColumn)
10996         End Function
10997         
10998         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10999          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11000         Public Sub SetStateNull()
11001             Me(Me.tableCustomer.StateColumn) = Global.System.Convert.DBNull
11002         End Sub
11003         
11004         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11005          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11006         Public Function IsZipCodeNull() As Boolean
11007             Return Me.IsNull(Me.tableCustomer.ZipCodeColumn)
11008         End Function
11009         
11010         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11011          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11012         Public Sub SetZipCodeNull()
11013             Me(Me.tableCustomer.ZipCodeColumn) = Global.System.Convert.DBNull
11014         End Sub
11015         
11016         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11017          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11018         Public Function IsContactNoNull() As Boolean
11019             Return Me.IsNull(Me.tableCustomer.ContactNoColumn)
11020         End Function
11021         
11022         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11023          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11024         Public Sub SetContactNoNull()
11025             Me(Me.tableCustomer.ContactNoColumn) = Global.System.Convert.DBNull
11026         End Sub
11027         
11028         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11029          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11030         Public Function IsEmailIDNull() As Boolean
11031             Return Me.IsNull(Me.tableCustomer.EmailIDColumn)
11032         End Function
11033         
11034         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11035          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11036         Public Sub SetEmailIDNull()
11037             Me(Me.tableCustomer.EmailIDColumn) = Global.System.Convert.DBNull
11038         End Sub
11039         
11040         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11041          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11042         Public Function IsRemarksNull() As Boolean
11043             Return Me.IsNull(Me.tableCustomer.RemarksColumn)
11044         End Function
11045         
11046         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11047          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11048         Public Sub SetRemarksNull()
11049             Me(Me.tableCustomer.RemarksColumn) = Global.System.Convert.DBNull
11050         End Sub
11051         
11052         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11053          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11054         Public Function IsPhotoNull() As Boolean
11055             Return Me.IsNull(Me.tableCustomer.PhotoColumn)
11056         End Function
11057         
11058         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11059          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11060         Public Sub SetPhotoNull()
11061             Me(Me.tableCustomer.PhotoColumn) = Global.System.Convert.DBNull
11062         End Sub
11063         
11064         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11065          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11066         Public Function IsCustomerTypeNull() As Boolean
11067             Return Me.IsNull(Me.tableCustomer.CustomerTypeColumn)
11068         End Function
11069         
11070         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11071          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11072         Public Sub SetCustomerTypeNull()
11073             Me(Me.tableCustomer.CustomerTypeColumn) = Global.System.Convert.DBNull
11074         End Sub
11075         
11076         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11077          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11078         Public Function GetInvoiceInfoRows() As InvoiceInfoRow()
11079             If (Me.Table.ChildRelations("FK_InvoiceInfo_Customer") Is Nothing) Then
11080                 Return New InvoiceInfoRow(-1) {}
11081             Else
11082                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_InvoiceInfo_Customer")),InvoiceInfoRow())
11083             End If
11084         End Function
11085         
11086         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11087          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11088         Public Function GetQuotationRows() As QuotationRow()
11089             If (Me.Table.ChildRelations("FK_Quotation_Customer") Is Nothing) Then
11090                 Return New QuotationRow(-1) {}
11091             Else
11092                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Quotation_Customer")),QuotationRow())
11093             End If
11094         End Function
11095         
11096         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11097          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11098         Public Function GetServiceRows() As ServiceRow()
11099             If (Me.Table.ChildRelations("FK_Service_Customer") Is Nothing) Then
11100                 Return New ServiceRow(-1) {}
11101             Else
11102                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Service_Customer")),ServiceRow())
11103             End If
11104         End Function
11105     End Class
11106     
11107     '''<summary>
11108     '''Represents strongly named DataRow class.
11109     '''</summary>
11110     Partial Public Class Invoice_PaymentRow
11111         Inherits Global.System.Data.DataRow
11112         
11113         Private tableInvoice_Payment As Invoice_PaymentDataTable
11114         
11115         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11116          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11117         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
11118             MyBase.New(rb)
11119             Me.tableInvoice_Payment = CType(Me.Table,Invoice_PaymentDataTable)
11120         End Sub
11121         
11122         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11123          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11124         Public Property IP_ID() As Integer
11125             Get
11126                 Return CType(Me(Me.tableInvoice_Payment.IP_IDColumn),Integer)
11127             End Get
11128             Set
11129                 Me(Me.tableInvoice_Payment.IP_IDColumn) = value
11130             End Set
11131         End Property
11132         
11133         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11134          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11135         Public Property InvoiceID() As Integer
11136             Get
11137                 Return CType(Me(Me.tableInvoice_Payment.InvoiceIDColumn),Integer)
11138             End Get
11139             Set
11140                 Me(Me.tableInvoice_Payment.InvoiceIDColumn) = value
11141             End Set
11142         End Property
11143         
11144         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11145          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11146         Public Property PaymentDate() As Date
11147             Get
11148                 Return CType(Me(Me.tableInvoice_Payment.PaymentDateColumn),Date)
11149             End Get
11150             Set
11151                 Me(Me.tableInvoice_Payment.PaymentDateColumn) = value
11152             End Set
11153         End Property
11154         
11155         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11156          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11157         Public Property TotalPaid() As Decimal
11158             Get
11159                 Return CType(Me(Me.tableInvoice_Payment.TotalPaidColumn),Decimal)
11160             End Get
11161             Set
11162                 Me(Me.tableInvoice_Payment.TotalPaidColumn) = value
11163             End Set
11164         End Property
11165         
11166         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11167          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11168         Public Property PaymentMode() As String
11169             Get
11170                 Return CType(Me(Me.tableInvoice_Payment.PaymentModeColumn),String)
11171             End Get
11172             Set
11173                 Me(Me.tableInvoice_Payment.PaymentModeColumn) = value
11174             End Set
11175         End Property
11176         
11177         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11178          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11179         Public Property InvoiceInfoRow() As InvoiceInfoRow
11180             Get
11181                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Invoice_Payment_InvoiceInfo")),InvoiceInfoRow)
11182             End Get
11183             Set
11184                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Invoice_Payment_InvoiceInfo"))
11185             End Set
11186         End Property
11187     End Class
11188     
11189     '''<summary>
11190     '''Represents strongly named DataRow class.
11191     '''</summary>
11192     Partial Public Class Invoice_ProductRow
11193         Inherits Global.System.Data.DataRow
11194         
11195         Private tableInvoice_Product As Invoice_ProductDataTable
11196         
11197         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11198          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11199         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
11200             MyBase.New(rb)
11201             Me.tableInvoice_Product = CType(Me.Table,Invoice_ProductDataTable)
11202         End Sub
11203         
11204         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11205          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11206         Public Property IPo_ID() As Integer
11207             Get
11208                 Return CType(Me(Me.tableInvoice_Product.IPo_IDColumn),Integer)
11209             End Get
11210             Set
11211                 Me(Me.tableInvoice_Product.IPo_IDColumn) = value
11212             End Set
11213         End Property
11214         
11215         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11216          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11217         Public Property InvoiceID() As Integer
11218             Get
11219                 Return CType(Me(Me.tableInvoice_Product.InvoiceIDColumn),Integer)
11220             End Get
11221             Set
11222                 Me(Me.tableInvoice_Product.InvoiceIDColumn) = value
11223             End Set
11224         End Property
11225         
11226         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11227          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11228         Public Property ProductID() As Integer
11229             Get
11230                 Return CType(Me(Me.tableInvoice_Product.ProductIDColumn),Integer)
11231             End Get
11232             Set
11233                 Me(Me.tableInvoice_Product.ProductIDColumn) = value
11234             End Set
11235         End Property
11236         
11237         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11238          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11239         Public Property CostPrice() As Decimal
11240             Get
11241                 Return CType(Me(Me.tableInvoice_Product.CostPriceColumn),Decimal)
11242             End Get
11243             Set
11244                 Me(Me.tableInvoice_Product.CostPriceColumn) = value
11245             End Set
11246         End Property
11247         
11248         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11249          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11250         Public Property SellingPrice() As Decimal
11251             Get
11252                 Return CType(Me(Me.tableInvoice_Product.SellingPriceColumn),Decimal)
11253             End Get
11254             Set
11255                 Me(Me.tableInvoice_Product.SellingPriceColumn) = value
11256             End Set
11257         End Property
11258         
11259         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11260          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11261         Public Property Margin() As Decimal
11262             Get
11263                 Return CType(Me(Me.tableInvoice_Product.MarginColumn),Decimal)
11264             End Get
11265             Set
11266                 Me(Me.tableInvoice_Product.MarginColumn) = value
11267             End Set
11268         End Property
11269         
11270         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11271          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11272         Public Property Qty() As Integer
11273             Get
11274                 Return CType(Me(Me.tableInvoice_Product.QtyColumn),Integer)
11275             End Get
11276             Set
11277                 Me(Me.tableInvoice_Product.QtyColumn) = value
11278             End Set
11279         End Property
11280         
11281         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11282          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11283         Public Property Amount() As Decimal
11284             Get
11285                 Return CType(Me(Me.tableInvoice_Product.AmountColumn),Decimal)
11286             End Get
11287             Set
11288                 Me(Me.tableInvoice_Product.AmountColumn) = value
11289             End Set
11290         End Property
11291         
11292         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11293          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11294         Public Property DiscountPer() As Decimal
11295             Get
11296                 Return CType(Me(Me.tableInvoice_Product.DiscountPerColumn),Decimal)
11297             End Get
11298             Set
11299                 Me(Me.tableInvoice_Product.DiscountPerColumn) = value
11300             End Set
11301         End Property
11302         
11303         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11304          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11305         Public Property Discount() As Decimal
11306             Get
11307                 Return CType(Me(Me.tableInvoice_Product.DiscountColumn),Decimal)
11308             End Get
11309             Set
11310                 Me(Me.tableInvoice_Product.DiscountColumn) = value
11311             End Set
11312         End Property
11313         
11314         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11315          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11316         Public Property VATPer() As Decimal
11317             Get
11318                 Return CType(Me(Me.tableInvoice_Product.VATPerColumn),Decimal)
11319             End Get
11320             Set
11321                 Me(Me.tableInvoice_Product.VATPerColumn) = value
11322             End Set
11323         End Property
11324         
11325         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11326          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11327         Public Property VAT() As Decimal
11328             Get
11329                 Return CType(Me(Me.tableInvoice_Product.VATColumn),Decimal)
11330             End Get
11331             Set
11332                 Me(Me.tableInvoice_Product.VATColumn) = value
11333             End Set
11334         End Property
11335         
11336         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11337          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11338         Public Property TotalAmount() As Decimal
11339             Get
11340                 Return CType(Me(Me.tableInvoice_Product.TotalAmountColumn),Decimal)
11341             End Get
11342             Set
11343                 Me(Me.tableInvoice_Product.TotalAmountColumn) = value
11344             End Set
11345         End Property
11346         
11347         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11348          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11349         Public Property InvoiceInfoRow() As InvoiceInfoRow
11350             Get
11351                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Invoice_Product_InvoiceInfo")),InvoiceInfoRow)
11352             End Get
11353             Set
11354                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Invoice_Product_InvoiceInfo"))
11355             End Set
11356         End Property
11357         
11358         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11359          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11360         Public Property ProductRow() As ProductRow
11361             Get
11362                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Invoice_Product_Product")),ProductRow)
11363             End Get
11364             Set
11365                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Invoice_Product_Product"))
11366             End Set
11367         End Property
11368     End Class
11369     
11370     '''<summary>
11371     '''Represents strongly named DataRow class.
11372     '''</summary>
11373     Partial Public Class Invoice1_PaymentRow
11374         Inherits Global.System.Data.DataRow
11375         
11376         Private tableInvoice1_Payment As Invoice1_PaymentDataTable
11377         
11378         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11379          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11380         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
11381             MyBase.New(rb)
11382             Me.tableInvoice1_Payment = CType(Me.Table,Invoice1_PaymentDataTable)
11383         End Sub
11384         
11385         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11386          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11387         Public Property IP_ID() As Integer
11388             Get
11389                 Return CType(Me(Me.tableInvoice1_Payment.IP_IDColumn),Integer)
11390             End Get
11391             Set
11392                 Me(Me.tableInvoice1_Payment.IP_IDColumn) = value
11393             End Set
11394         End Property
11395         
11396         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11397          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11398         Public Property InvoiceID() As Integer
11399             Get
11400                 Return CType(Me(Me.tableInvoice1_Payment.InvoiceIDColumn),Integer)
11401             End Get
11402             Set
11403                 Me(Me.tableInvoice1_Payment.InvoiceIDColumn) = value
11404             End Set
11405         End Property
11406         
11407         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11408          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11409         Public Property PaymentDate() As Date
11410             Get
11411                 Return CType(Me(Me.tableInvoice1_Payment.PaymentDateColumn),Date)
11412             End Get
11413             Set
11414                 Me(Me.tableInvoice1_Payment.PaymentDateColumn) = value
11415             End Set
11416         End Property
11417         
11418         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11419          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11420         Public Property TotalPaid() As Decimal
11421             Get
11422                 Return CType(Me(Me.tableInvoice1_Payment.TotalPaidColumn),Decimal)
11423             End Get
11424             Set
11425                 Me(Me.tableInvoice1_Payment.TotalPaidColumn) = value
11426             End Set
11427         End Property
11428         
11429         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11430          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11431         Public Property PaymentMode() As String
11432             Get
11433                 Return CType(Me(Me.tableInvoice1_Payment.PaymentModeColumn),String)
11434             End Get
11435             Set
11436                 Me(Me.tableInvoice1_Payment.PaymentModeColumn) = value
11437             End Set
11438         End Property
11439         
11440         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11441          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11442         Public Property InvoiceInfo1Row() As InvoiceInfo1Row
11443             Get
11444                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Invoice1_Payment_InvoiceInfo1")),InvoiceInfo1Row)
11445             End Get
11446             Set
11447                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Invoice1_Payment_InvoiceInfo1"))
11448             End Set
11449         End Property
11450     End Class
11451     
11452     '''<summary>
11453     '''Represents strongly named DataRow class.
11454     '''</summary>
11455     Partial Public Class Invoice1_ProductRow
11456         Inherits Global.System.Data.DataRow
11457         
11458         Private tableInvoice1_Product As Invoice1_ProductDataTable
11459         
11460         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11461          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11462         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
11463             MyBase.New(rb)
11464             Me.tableInvoice1_Product = CType(Me.Table,Invoice1_ProductDataTable)
11465         End Sub
11466         
11467         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11468          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11469         Public Property Ipo_ID() As Integer
11470             Get
11471                 Return CType(Me(Me.tableInvoice1_Product.Ipo_IDColumn),Integer)
11472             End Get
11473             Set
11474                 Me(Me.tableInvoice1_Product.Ipo_IDColumn) = value
11475             End Set
11476         End Property
11477         
11478         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11479          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11480         Public Property InvoiceID() As Integer
11481             Get
11482                 Return CType(Me(Me.tableInvoice1_Product.InvoiceIDColumn),Integer)
11483             End Get
11484             Set
11485                 Me(Me.tableInvoice1_Product.InvoiceIDColumn) = value
11486             End Set
11487         End Property
11488         
11489         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11490          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11491         Public Property ProductID() As Integer
11492             Get
11493                 Return CType(Me(Me.tableInvoice1_Product.ProductIDColumn),Integer)
11494             End Get
11495             Set
11496                 Me(Me.tableInvoice1_Product.ProductIDColumn) = value
11497             End Set
11498         End Property
11499         
11500         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11501          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11502         Public Property CostPrice() As Decimal
11503             Get
11504                 Return CType(Me(Me.tableInvoice1_Product.CostPriceColumn),Decimal)
11505             End Get
11506             Set
11507                 Me(Me.tableInvoice1_Product.CostPriceColumn) = value
11508             End Set
11509         End Property
11510         
11511         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11512          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11513         Public Property SellingPrice() As Decimal
11514             Get
11515                 Return CType(Me(Me.tableInvoice1_Product.SellingPriceColumn),Decimal)
11516             End Get
11517             Set
11518                 Me(Me.tableInvoice1_Product.SellingPriceColumn) = value
11519             End Set
11520         End Property
11521         
11522         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11523          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11524         Public Property Margin() As Decimal
11525             Get
11526                 Return CType(Me(Me.tableInvoice1_Product.MarginColumn),Decimal)
11527             End Get
11528             Set
11529                 Me(Me.tableInvoice1_Product.MarginColumn) = value
11530             End Set
11531         End Property
11532         
11533         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11534          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11535         Public Property Qty() As Integer
11536             Get
11537                 Return CType(Me(Me.tableInvoice1_Product.QtyColumn),Integer)
11538             End Get
11539             Set
11540                 Me(Me.tableInvoice1_Product.QtyColumn) = value
11541             End Set
11542         End Property
11543         
11544         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11545          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11546         Public Property Amount() As Decimal
11547             Get
11548                 Return CType(Me(Me.tableInvoice1_Product.AmountColumn),Decimal)
11549             End Get
11550             Set
11551                 Me(Me.tableInvoice1_Product.AmountColumn) = value
11552             End Set
11553         End Property
11554         
11555         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11556          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11557         Public Property DiscountPer() As Decimal
11558             Get
11559                 Return CType(Me(Me.tableInvoice1_Product.DiscountPerColumn),Decimal)
11560             End Get
11561             Set
11562                 Me(Me.tableInvoice1_Product.DiscountPerColumn) = value
11563             End Set
11564         End Property
11565         
11566         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11567          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11568         Public Property Discount() As Decimal
11569             Get
11570                 Return CType(Me(Me.tableInvoice1_Product.DiscountColumn),Decimal)
11571             End Get
11572             Set
11573                 Me(Me.tableInvoice1_Product.DiscountColumn) = value
11574             End Set
11575         End Property
11576         
11577         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11578          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11579         Public Property VATPer() As Decimal
11580             Get
11581                 Return CType(Me(Me.tableInvoice1_Product.VATPerColumn),Decimal)
11582             End Get
11583             Set
11584                 Me(Me.tableInvoice1_Product.VATPerColumn) = value
11585             End Set
11586         End Property
11587         
11588         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11589          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11590         Public Property VAT() As Decimal
11591             Get
11592                 Return CType(Me(Me.tableInvoice1_Product.VATColumn),Decimal)
11593             End Get
11594             Set
11595                 Me(Me.tableInvoice1_Product.VATColumn) = value
11596             End Set
11597         End Property
11598         
11599         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11600          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11601         Public Property TotalAmount() As Decimal
11602             Get
11603                 Return CType(Me(Me.tableInvoice1_Product.TotalAmountColumn),Decimal)
11604             End Get
11605             Set
11606                 Me(Me.tableInvoice1_Product.TotalAmountColumn) = value
11607             End Set
11608         End Property
11609         
11610         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11611          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11612         Public Property InvoiceInfo1Row() As InvoiceInfo1Row
11613             Get
11614                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Invoice1_Product_InvoiceInfo1")),InvoiceInfo1Row)
11615             End Get
11616             Set
11617                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Invoice1_Product_InvoiceInfo1"))
11618             End Set
11619         End Property
11620         
11621         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11622          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11623         Public Property ProductRow() As ProductRow
11624             Get
11625                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Invoice1_Product_Product")),ProductRow)
11626             End Get
11627             Set
11628                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Invoice1_Product_Product"))
11629             End Set
11630         End Property
11631     End Class
11632     
11633     '''<summary>
11634     '''Represents strongly named DataRow class.
11635     '''</summary>
11636     Partial Public Class InvoiceInfoRow
11637         Inherits Global.System.Data.DataRow
11638         
11639         Private tableInvoiceInfo As InvoiceInfoDataTable
11640         
11641         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11642          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11643         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
11644             MyBase.New(rb)
11645             Me.tableInvoiceInfo = CType(Me.Table,InvoiceInfoDataTable)
11646         End Sub
11647         
11648         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11649          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11650         Public Property Inv_ID() As Integer
11651             Get
11652                 Return CType(Me(Me.tableInvoiceInfo.Inv_IDColumn),Integer)
11653             End Get
11654             Set
11655                 Me(Me.tableInvoiceInfo.Inv_IDColumn) = value
11656             End Set
11657         End Property
11658         
11659         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11660          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11661         Public Property InvoiceNo() As String
11662             Get
11663                 Return CType(Me(Me.tableInvoiceInfo.InvoiceNoColumn),String)
11664             End Get
11665             Set
11666                 Me(Me.tableInvoiceInfo.InvoiceNoColumn) = value
11667             End Set
11668         End Property
11669         
11670         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11671          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11672         Public Property InvoiceDate() As Date
11673             Get
11674                 Return CType(Me(Me.tableInvoiceInfo.InvoiceDateColumn),Date)
11675             End Get
11676             Set
11677                 Me(Me.tableInvoiceInfo.InvoiceDateColumn) = value
11678             End Set
11679         End Property
11680         
11681         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11682          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11683         Public Property CustomerID() As Integer
11684             Get
11685                 Return CType(Me(Me.tableInvoiceInfo.CustomerIDColumn),Integer)
11686             End Get
11687             Set
11688                 Me(Me.tableInvoiceInfo.CustomerIDColumn) = value
11689             End Set
11690         End Property
11691         
11692         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11693          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11694         Public Property GrandTotal() As Decimal
11695             Get
11696                 Return CType(Me(Me.tableInvoiceInfo.GrandTotalColumn),Decimal)
11697             End Get
11698             Set
11699                 Me(Me.tableInvoiceInfo.GrandTotalColumn) = value
11700             End Set
11701         End Property
11702         
11703         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11704          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11705         Public Property TotalPaid() As Decimal
11706             Get
11707                 Return CType(Me(Me.tableInvoiceInfo.TotalPaidColumn),Decimal)
11708             End Get
11709             Set
11710                 Me(Me.tableInvoiceInfo.TotalPaidColumn) = value
11711             End Set
11712         End Property
11713         
11714         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11715          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11716         Public Property Balance() As Decimal
11717             Get
11718                 Return CType(Me(Me.tableInvoiceInfo.BalanceColumn),Decimal)
11719             End Get
11720             Set
11721                 Me(Me.tableInvoiceInfo.BalanceColumn) = value
11722             End Set
11723         End Property
11724         
11725         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11726          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11727         Public Property Remarks() As String
11728             Get
11729                 Try
11730                     Return CType(Me(Me.tableInvoiceInfo.RemarksColumn),String)
11731                 Catch e As Global.System.InvalidCastException
11732                     Throw New Global.System.Data.StrongTypingException("The value for column 'Remarks' in table 'InvoiceInfo' is DBNull.", e)
11733                 End Try
11734             End Get
11735             Set
11736                 Me(Me.tableInvoiceInfo.RemarksColumn) = value
11737             End Set
11738         End Property
11739         
11740         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11741          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11742         Public Property CustomerRow() As CustomerRow
11743             Get
11744                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_InvoiceInfo_Customer")),CustomerRow)
11745             End Get
11746             Set
11747                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_InvoiceInfo_Customer"))
11748             End Set
11749         End Property
11750         
11751         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11752          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11753         Public Function IsRemarksNull() As Boolean
11754             Return Me.IsNull(Me.tableInvoiceInfo.RemarksColumn)
11755         End Function
11756         
11757         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11758          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11759         Public Sub SetRemarksNull()
11760             Me(Me.tableInvoiceInfo.RemarksColumn) = Global.System.Convert.DBNull
11761         End Sub
11762         
11763         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11764          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11765         Public Function GetInvoice_PaymentRows() As Invoice_PaymentRow()
11766             If (Me.Table.ChildRelations("FK_Invoice_Payment_InvoiceInfo") Is Nothing) Then
11767                 Return New Invoice_PaymentRow(-1) {}
11768             Else
11769                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Invoice_Payment_InvoiceInfo")),Invoice_PaymentRow())
11770             End If
11771         End Function
11772         
11773         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11774          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11775         Public Function GetInvoice_ProductRows() As Invoice_ProductRow()
11776             If (Me.Table.ChildRelations("FK_Invoice_Product_InvoiceInfo") Is Nothing) Then
11777                 Return New Invoice_ProductRow(-1) {}
11778             Else
11779                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Invoice_Product_InvoiceInfo")),Invoice_ProductRow())
11780             End If
11781         End Function
11782     End Class
11783     
11784     '''<summary>
11785     '''Represents strongly named DataRow class.
11786     '''</summary>
11787     Partial Public Class InvoiceInfo1Row
11788         Inherits Global.System.Data.DataRow
11789         
11790         Private tableInvoiceInfo1 As InvoiceInfo1DataTable
11791         
11792         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11793          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11794         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
11795             MyBase.New(rb)
11796             Me.tableInvoiceInfo1 = CType(Me.Table,InvoiceInfo1DataTable)
11797         End Sub
11798         
11799         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11800          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11801         Public Property Inv_ID() As Integer
11802             Get
11803                 Return CType(Me(Me.tableInvoiceInfo1.Inv_IDColumn),Integer)
11804             End Get
11805             Set
11806                 Me(Me.tableInvoiceInfo1.Inv_IDColumn) = value
11807             End Set
11808         End Property
11809         
11810         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11811          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11812         Public Property InvoiceNo() As String
11813             Get
11814                 Return CType(Me(Me.tableInvoiceInfo1.InvoiceNoColumn),String)
11815             End Get
11816             Set
11817                 Me(Me.tableInvoiceInfo1.InvoiceNoColumn) = value
11818             End Set
11819         End Property
11820         
11821         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11822          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11823         Public Property InvoiceDate() As Date
11824             Get
11825                 Return CType(Me(Me.tableInvoiceInfo1.InvoiceDateColumn),Date)
11826             End Get
11827             Set
11828                 Me(Me.tableInvoiceInfo1.InvoiceDateColumn) = value
11829             End Set
11830         End Property
11831         
11832         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11833          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11834         Public Property ServiceID() As Integer
11835             Get
11836                 Return CType(Me(Me.tableInvoiceInfo1.ServiceIDColumn),Integer)
11837             End Get
11838             Set
11839                 Me(Me.tableInvoiceInfo1.ServiceIDColumn) = value
11840             End Set
11841         End Property
11842         
11843         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11844          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11845         Public Property RepairCharges() As Decimal
11846             Get
11847                 Return CType(Me(Me.tableInvoiceInfo1.RepairChargesColumn),Decimal)
11848             End Get
11849             Set
11850                 Me(Me.tableInvoiceInfo1.RepairChargesColumn) = value
11851             End Set
11852         End Property
11853         
11854         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11855          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11856         Public Property Upfront() As Decimal
11857             Get
11858                 Return CType(Me(Me.tableInvoiceInfo1.UpfrontColumn),Decimal)
11859             End Get
11860             Set
11861                 Me(Me.tableInvoiceInfo1.UpfrontColumn) = value
11862             End Set
11863         End Property
11864         
11865         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11866          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11867         Public Property ProductCharges() As Decimal
11868             Get
11869                 Return CType(Me(Me.tableInvoiceInfo1.ProductChargesColumn),Decimal)
11870             End Get
11871             Set
11872                 Me(Me.tableInvoiceInfo1.ProductChargesColumn) = value
11873             End Set
11874         End Property
11875         
11876         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11877          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11878         Public Property ServiceTaxPer() As Decimal
11879             Get
11880                 Return CType(Me(Me.tableInvoiceInfo1.ServiceTaxPerColumn),Decimal)
11881             End Get
11882             Set
11883                 Me(Me.tableInvoiceInfo1.ServiceTaxPerColumn) = value
11884             End Set
11885         End Property
11886         
11887         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11888          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11889         Public Property ServiceTax() As Decimal
11890             Get
11891                 Return CType(Me(Me.tableInvoiceInfo1.ServiceTaxColumn),Decimal)
11892             End Get
11893             Set
11894                 Me(Me.tableInvoiceInfo1.ServiceTaxColumn) = value
11895             End Set
11896         End Property
11897         
11898         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11899          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11900         Public Property GrandTotal() As Decimal
11901             Get
11902                 Return CType(Me(Me.tableInvoiceInfo1.GrandTotalColumn),Decimal)
11903             End Get
11904             Set
11905                 Me(Me.tableInvoiceInfo1.GrandTotalColumn) = value
11906             End Set
11907         End Property
11908         
11909         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11910          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11911         Public Property TotalPaid() As Decimal
11912             Get
11913                 Return CType(Me(Me.tableInvoiceInfo1.TotalPaidColumn),Decimal)
11914             End Get
11915             Set
11916                 Me(Me.tableInvoiceInfo1.TotalPaidColumn) = value
11917             End Set
11918         End Property
11919         
11920         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11921          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11922         Public Property Balance() As Decimal
11923             Get
11924                 Return CType(Me(Me.tableInvoiceInfo1.BalanceColumn),Decimal)
11925             End Get
11926             Set
11927                 Me(Me.tableInvoiceInfo1.BalanceColumn) = value
11928             End Set
11929         End Property
11930         
11931         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11932          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11933         Public Property Remarks() As String
11934             Get
11935                 Try
11936                     Return CType(Me(Me.tableInvoiceInfo1.RemarksColumn),String)
11937                 Catch e As Global.System.InvalidCastException
11938                     Throw New Global.System.Data.StrongTypingException("The value for column 'Remarks' in table 'InvoiceInfo1' is DBNull.", e)
11939                 End Try
11940             End Get
11941             Set
11942                 Me(Me.tableInvoiceInfo1.RemarksColumn) = value
11943             End Set
11944         End Property
11945         
11946         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11947          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11948         Public Property ServiceRow() As ServiceRow
11949             Get
11950                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_InvoiceInfo1_Service")),ServiceRow)
11951             End Get
11952             Set
11953                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_InvoiceInfo1_Service"))
11954             End Set
11955         End Property
11956         
11957         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11958          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11959         Public Function IsRemarksNull() As Boolean
11960             Return Me.IsNull(Me.tableInvoiceInfo1.RemarksColumn)
11961         End Function
11962         
11963         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11964          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11965         Public Sub SetRemarksNull()
11966             Me(Me.tableInvoiceInfo1.RemarksColumn) = Global.System.Convert.DBNull
11967         End Sub
11968         
11969         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11970          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11971         Public Function GetInvoice1_PaymentRows() As Invoice1_PaymentRow()
11972             If (Me.Table.ChildRelations("FK_Invoice1_Payment_InvoiceInfo1") Is Nothing) Then
11973                 Return New Invoice1_PaymentRow(-1) {}
11974             Else
11975                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Invoice1_Payment_InvoiceInfo1")),Invoice1_PaymentRow())
11976             End If
11977         End Function
11978         
11979         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11980          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11981         Public Function GetInvoice1_ProductRows() As Invoice1_ProductRow()
11982             If (Me.Table.ChildRelations("FK_Invoice1_Product_InvoiceInfo1") Is Nothing) Then
11983                 Return New Invoice1_ProductRow(-1) {}
11984             Else
11985                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Invoice1_Product_InvoiceInfo1")),Invoice1_ProductRow())
11986             End If
11987         End Function
11988     End Class
11989     
11990     '''<summary>
11991     '''Represents strongly named DataRow class.
11992     '''</summary>
11993     Partial Public Class LogsRow
11994         Inherits Global.System.Data.DataRow
11995         
11996         Private tableLogs As LogsDataTable
11997         
11998         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11999          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12000         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
12001             MyBase.New(rb)
12002             Me.tableLogs = CType(Me.Table,LogsDataTable)
12003         End Sub
12004         
12005         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12006          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12007         Public Property ID() As Integer
12008             Get
12009                 Return CType(Me(Me.tableLogs.IDColumn),Integer)
12010             End Get
12011             Set
12012                 Me(Me.tableLogs.IDColumn) = value
12013             End Set
12014         End Property
12015         
12016         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12017          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12018         Public Property UserID() As String
12019             Get
12020                 Return CType(Me(Me.tableLogs.UserIDColumn),String)
12021             End Get
12022             Set
12023                 Me(Me.tableLogs.UserIDColumn) = value
12024             End Set
12025         End Property
12026         
12027         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12028          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12029         Public Property Operation() As String
12030             Get
12031                 Return CType(Me(Me.tableLogs.OperationColumn),String)
12032             End Get
12033             Set
12034                 Me(Me.tableLogs.OperationColumn) = value
12035             End Set
12036         End Property
12037         
12038         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12039          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12040         Public Property _Date() As Date
12041             Get
12042                 Return CType(Me(Me.tableLogs.DateColumn),Date)
12043             End Get
12044             Set
12045                 Me(Me.tableLogs.DateColumn) = value
12046             End Set
12047         End Property
12048         
12049         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12050          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12051         Public Property RegistrationRow() As RegistrationRow
12052             Get
12053                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Logs_Registration")),RegistrationRow)
12054             End Get
12055             Set
12056                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Logs_Registration"))
12057             End Set
12058         End Property
12059     End Class
12060     
12061     '''<summary>
12062     '''Represents strongly named DataRow class.
12063     '''</summary>
12064     Partial Public Class ProductRow
12065         Inherits Global.System.Data.DataRow
12066         
12067         Private tableProduct As ProductDataTable
12068         
12069         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12070          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12071         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
12072             MyBase.New(rb)
12073             Me.tableProduct = CType(Me.Table,ProductDataTable)
12074         End Sub
12075         
12076         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12077          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12078         Public Property PID() As Integer
12079             Get
12080                 Return CType(Me(Me.tableProduct.PIDColumn),Integer)
12081             End Get
12082             Set
12083                 Me(Me.tableProduct.PIDColumn) = value
12084             End Set
12085         End Property
12086         
12087         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12088          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12089         Public Property ProductCode() As String
12090             Get
12091                 Return CType(Me(Me.tableProduct.ProductCodeColumn),String)
12092             End Get
12093             Set
12094                 Me(Me.tableProduct.ProductCodeColumn) = value
12095             End Set
12096         End Property
12097         
12098         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12099          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12100         Public Property ProductName() As String
12101             Get
12102                 Return CType(Me(Me.tableProduct.ProductNameColumn),String)
12103             End Get
12104             Set
12105                 Me(Me.tableProduct.ProductNameColumn) = value
12106             End Set
12107         End Property
12108         
12109         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12110          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12111         Public Property SubCategoryID() As Integer
12112             Get
12113                 Return CType(Me(Me.tableProduct.SubCategoryIDColumn),Integer)
12114             End Get
12115             Set
12116                 Me(Me.tableProduct.SubCategoryIDColumn) = value
12117             End Set
12118         End Property
12119         
12120         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12121          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12122         Public Property Description() As String
12123             Get
12124                 Try
12125                     Return CType(Me(Me.tableProduct.DescriptionColumn),String)
12126                 Catch e As Global.System.InvalidCastException
12127                     Throw New Global.System.Data.StrongTypingException("The value for column 'Description' in table 'Product' is DBNull.", e)
12128                 End Try
12129             End Get
12130             Set
12131                 Me(Me.tableProduct.DescriptionColumn) = value
12132             End Set
12133         End Property
12134         
12135         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12136          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12137         Public Property CostPrice() As Decimal
12138             Get
12139                 Return CType(Me(Me.tableProduct.CostPriceColumn),Decimal)
12140             End Get
12141             Set
12142                 Me(Me.tableProduct.CostPriceColumn) = value
12143             End Set
12144         End Property
12145         
12146         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12147          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12148         Public Property SellingPrice() As Decimal
12149             Get
12150                 Return CType(Me(Me.tableProduct.SellingPriceColumn),Decimal)
12151             End Get
12152             Set
12153                 Me(Me.tableProduct.SellingPriceColumn) = value
12154             End Set
12155         End Property
12156         
12157         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12158          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12159         Public Property Discount() As Decimal
12160             Get
12161                 Return CType(Me(Me.tableProduct.DiscountColumn),Decimal)
12162             End Get
12163             Set
12164                 Me(Me.tableProduct.DiscountColumn) = value
12165             End Set
12166         End Property
12167         
12168         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12169          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12170         Public Property VAT() As Decimal
12171             Get
12172                 Return CType(Me(Me.tableProduct.VATColumn),Decimal)
12173             End Get
12174             Set
12175                 Me(Me.tableProduct.VATColumn) = value
12176             End Set
12177         End Property
12178         
12179         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12180          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12181         Public Property ReorderPoint() As Integer
12182             Get
12183                 Return CType(Me(Me.tableProduct.ReorderPointColumn),Integer)
12184             End Get
12185             Set
12186                 Me(Me.tableProduct.ReorderPointColumn) = value
12187             End Set
12188         End Property
12189         
12190         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12191          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12192         Public Property SubCategoryRow() As SubCategoryRow
12193             Get
12194                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Product_SubCategory")),SubCategoryRow)
12195             End Get
12196             Set
12197                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Product_SubCategory"))
12198             End Set
12199         End Property
12200         
12201         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12202          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12203         Public Function IsDescriptionNull() As Boolean
12204             Return Me.IsNull(Me.tableProduct.DescriptionColumn)
12205         End Function
12206         
12207         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12208          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12209         Public Sub SetDescriptionNull()
12210             Me(Me.tableProduct.DescriptionColumn) = Global.System.Convert.DBNull
12211         End Sub
12212         
12213         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12214          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12215         Public Function GetInvoice_ProductRows() As Invoice_ProductRow()
12216             If (Me.Table.ChildRelations("FK_Invoice_Product_Product") Is Nothing) Then
12217                 Return New Invoice_ProductRow(-1) {}
12218             Else
12219                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Invoice_Product_Product")),Invoice_ProductRow())
12220             End If
12221         End Function
12222         
12223         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12224          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12225         Public Function GetInvoice1_ProductRows() As Invoice1_ProductRow()
12226             If (Me.Table.ChildRelations("FK_Invoice1_Product_Product") Is Nothing) Then
12227                 Return New Invoice1_ProductRow(-1) {}
12228             Else
12229                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Invoice1_Product_Product")),Invoice1_ProductRow())
12230             End If
12231         End Function
12232         
12233         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12234          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12235         Public Function GetProduct_JoinRows() As Product_JoinRow()
12236             If (Me.Table.ChildRelations("FK_Product_Join_Product") Is Nothing) Then
12237                 Return New Product_JoinRow(-1) {}
12238             Else
12239                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Product_Join_Product")),Product_JoinRow())
12240             End If
12241         End Function
12242         
12243         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12244          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12245         Public Function GetQuotation_JoinRows() As Quotation_JoinRow()
12246             If (Me.Table.ChildRelations("FK_Quotation_Join_Product") Is Nothing) Then
12247                 Return New Quotation_JoinRow(-1) {}
12248             Else
12249                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Quotation_Join_Product")),Quotation_JoinRow())
12250             End If
12251         End Function
12252         
12253         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12254          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12255         Public Function GetStock_ProductRows() As Stock_ProductRow()
12256             If (Me.Table.ChildRelations("FK_Stock_Product_Product") Is Nothing) Then
12257                 Return New Stock_ProductRow(-1) {}
12258             Else
12259                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Stock_Product_Product")),Stock_ProductRow())
12260             End If
12261         End Function
12262         
12263         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12264          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12265         Public Function GetTemp_StockRows() As Temp_StockRow()
12266             If (Me.Table.ChildRelations("FK_Temp_Stock_Product") Is Nothing) Then
12267                 Return New Temp_StockRow(-1) {}
12268             Else
12269                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Temp_Stock_Product")),Temp_StockRow())
12270             End If
12271         End Function
12272     End Class
12273     
12274     '''<summary>
12275     '''Represents strongly named DataRow class.
12276     '''</summary>
12277     Partial Public Class Product_JoinRow
12278         Inherits Global.System.Data.DataRow
12279         
12280         Private tableProduct_Join As Product_JoinDataTable
12281         
12282         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12283          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12284         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
12285             MyBase.New(rb)
12286             Me.tableProduct_Join = CType(Me.Table,Product_JoinDataTable)
12287         End Sub
12288         
12289         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12290          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12291         Public Property Id() As Integer
12292             Get
12293                 Return CType(Me(Me.tableProduct_Join.IdColumn),Integer)
12294             End Get
12295             Set
12296                 Me(Me.tableProduct_Join.IdColumn) = value
12297             End Set
12298         End Property
12299         
12300         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12301          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12302         Public Property ProductID() As Integer
12303             Get
12304                 Return CType(Me(Me.tableProduct_Join.ProductIDColumn),Integer)
12305             End Get
12306             Set
12307                 Me(Me.tableProduct_Join.ProductIDColumn) = value
12308             End Set
12309         End Property
12310         
12311         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12312          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12313         Public Property Photo() As Byte()
12314             Get
12315                 Return CType(Me(Me.tableProduct_Join.PhotoColumn),Byte())
12316             End Get
12317             Set
12318                 Me(Me.tableProduct_Join.PhotoColumn) = value
12319             End Set
12320         End Property
12321         
12322         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12323          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12324         Public Property ProductRow() As ProductRow
12325             Get
12326                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Product_Join_Product")),ProductRow)
12327             End Get
12328             Set
12329                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Product_Join_Product"))
12330             End Set
12331         End Property
12332     End Class
12333     
12334     '''<summary>
12335     '''Represents strongly named DataRow class.
12336     '''</summary>
12337     Partial Public Class QuotationRow
12338         Inherits Global.System.Data.DataRow
12339         
12340         Private tableQuotation As QuotationDataTable
12341         
12342         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12343          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12344         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
12345             MyBase.New(rb)
12346             Me.tableQuotation = CType(Me.Table,QuotationDataTable)
12347         End Sub
12348         
12349         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12350          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12351         Public Property Q_ID() As Integer
12352             Get
12353                 Return CType(Me(Me.tableQuotation.Q_IDColumn),Integer)
12354             End Get
12355             Set
12356                 Me(Me.tableQuotation.Q_IDColumn) = value
12357             End Set
12358         End Property
12359         
12360         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12361          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12362         Public Property QuotationNo() As String
12363             Get
12364                 Return CType(Me(Me.tableQuotation.QuotationNoColumn),String)
12365             End Get
12366             Set
12367                 Me(Me.tableQuotation.QuotationNoColumn) = value
12368             End Set
12369         End Property
12370         
12371         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12372          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12373         Public Property _Date() As Date
12374             Get
12375                 Return CType(Me(Me.tableQuotation.DateColumn),Date)
12376             End Get
12377             Set
12378                 Me(Me.tableQuotation.DateColumn) = value
12379             End Set
12380         End Property
12381         
12382         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12383          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12384         Public Property CustomerID() As Integer
12385             Get
12386                 Return CType(Me(Me.tableQuotation.CustomerIDColumn),Integer)
12387             End Get
12388             Set
12389                 Me(Me.tableQuotation.CustomerIDColumn) = value
12390             End Set
12391         End Property
12392         
12393         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12394          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12395         Public Property GrandTotal() As Decimal
12396             Get
12397                 Return CType(Me(Me.tableQuotation.GrandTotalColumn),Decimal)
12398             End Get
12399             Set
12400                 Me(Me.tableQuotation.GrandTotalColumn) = value
12401             End Set
12402         End Property
12403         
12404         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12405          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12406         Public Property Remarks() As String
12407             Get
12408                 Try
12409                     Return CType(Me(Me.tableQuotation.RemarksColumn),String)
12410                 Catch e As Global.System.InvalidCastException
12411                     Throw New Global.System.Data.StrongTypingException("The value for column 'Remarks' in table 'Quotation' is DBNull.", e)
12412                 End Try
12413             End Get
12414             Set
12415                 Me(Me.tableQuotation.RemarksColumn) = value
12416             End Set
12417         End Property
12418         
12419         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12420          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12421         Public Property CustomerRow() As CustomerRow
12422             Get
12423                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Quotation_Customer")),CustomerRow)
12424             End Get
12425             Set
12426                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Quotation_Customer"))
12427             End Set
12428         End Property
12429         
12430         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12431          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12432         Public Function IsRemarksNull() As Boolean
12433             Return Me.IsNull(Me.tableQuotation.RemarksColumn)
12434         End Function
12435         
12436         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12437          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12438         Public Sub SetRemarksNull()
12439             Me(Me.tableQuotation.RemarksColumn) = Global.System.Convert.DBNull
12440         End Sub
12441         
12442         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12443          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12444         Public Function GetQuotation_JoinRows() As Quotation_JoinRow()
12445             If (Me.Table.ChildRelations("FK_Quotation_Join_Quotation") Is Nothing) Then
12446                 Return New Quotation_JoinRow(-1) {}
12447             Else
12448                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Quotation_Join_Quotation")),Quotation_JoinRow())
12449             End If
12450         End Function
12451     End Class
12452     
12453     '''<summary>
12454     '''Represents strongly named DataRow class.
12455     '''</summary>
12456     Partial Public Class Quotation_JoinRow
12457         Inherits Global.System.Data.DataRow
12458         
12459         Private tableQuotation_Join As Quotation_JoinDataTable
12460         
12461         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12462          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12463         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
12464             MyBase.New(rb)
12465             Me.tableQuotation_Join = CType(Me.Table,Quotation_JoinDataTable)
12466         End Sub
12467         
12468         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12469          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12470         Public Property QJ_ID() As Integer
12471             Get
12472                 Return CType(Me(Me.tableQuotation_Join.QJ_IDColumn),Integer)
12473             End Get
12474             Set
12475                 Me(Me.tableQuotation_Join.QJ_IDColumn) = value
12476             End Set
12477         End Property
12478         
12479         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12480          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12481         Public Property QuotationID() As Integer
12482             Get
12483                 Return CType(Me(Me.tableQuotation_Join.QuotationIDColumn),Integer)
12484             End Get
12485             Set
12486                 Me(Me.tableQuotation_Join.QuotationIDColumn) = value
12487             End Set
12488         End Property
12489         
12490         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12491          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12492         Public Property ProductID() As Integer
12493             Get
12494                 Return CType(Me(Me.tableQuotation_Join.ProductIDColumn),Integer)
12495             End Get
12496             Set
12497                 Me(Me.tableQuotation_Join.ProductIDColumn) = value
12498             End Set
12499         End Property
12500         
12501         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12502          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12503         Public Property Cost() As Decimal
12504             Get
12505                 Return CType(Me(Me.tableQuotation_Join.CostColumn),Decimal)
12506             End Get
12507             Set
12508                 Me(Me.tableQuotation_Join.CostColumn) = value
12509             End Set
12510         End Property
12511         
12512         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12513          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12514         Public Property Qty() As Integer
12515             Get
12516                 Return CType(Me(Me.tableQuotation_Join.QtyColumn),Integer)
12517             End Get
12518             Set
12519                 Me(Me.tableQuotation_Join.QtyColumn) = value
12520             End Set
12521         End Property
12522         
12523         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12524          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12525         Public Property Amount() As Decimal
12526             Get
12527                 Return CType(Me(Me.tableQuotation_Join.AmountColumn),Decimal)
12528             End Get
12529             Set
12530                 Me(Me.tableQuotation_Join.AmountColumn) = value
12531             End Set
12532         End Property
12533         
12534         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12535          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12536         Public Property DiscountPer() As Decimal
12537             Get
12538                 Return CType(Me(Me.tableQuotation_Join.DiscountPerColumn),Decimal)
12539             End Get
12540             Set
12541                 Me(Me.tableQuotation_Join.DiscountPerColumn) = value
12542             End Set
12543         End Property
12544         
12545         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12546          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12547         Public Property Discount() As Decimal
12548             Get
12549                 Return CType(Me(Me.tableQuotation_Join.DiscountColumn),Decimal)
12550             End Get
12551             Set
12552                 Me(Me.tableQuotation_Join.DiscountColumn) = value
12553             End Set
12554         End Property
12555         
12556         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12557          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12558         Public Property VATPer() As Decimal
12559             Get
12560                 Return CType(Me(Me.tableQuotation_Join.VATPerColumn),Decimal)
12561             End Get
12562             Set
12563                 Me(Me.tableQuotation_Join.VATPerColumn) = value
12564             End Set
12565         End Property
12566         
12567         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12568          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12569         Public Property VAT() As Decimal
12570             Get
12571                 Return CType(Me(Me.tableQuotation_Join.VATColumn),Decimal)
12572             End Get
12573             Set
12574                 Me(Me.tableQuotation_Join.VATColumn) = value
12575             End Set
12576         End Property
12577         
12578         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12579          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12580         Public Property TotalAmount() As Decimal
12581             Get
12582                 Return CType(Me(Me.tableQuotation_Join.TotalAmountColumn),Decimal)
12583             End Get
12584             Set
12585                 Me(Me.tableQuotation_Join.TotalAmountColumn) = value
12586             End Set
12587         End Property
12588         
12589         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12590          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12591         Public Property ProductRow() As ProductRow
12592             Get
12593                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Quotation_Join_Product")),ProductRow)
12594             End Get
12595             Set
12596                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Quotation_Join_Product"))
12597             End Set
12598         End Property
12599         
12600         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12601          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12602         Public Property QuotationRow() As QuotationRow
12603             Get
12604                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Quotation_Join_Quotation")),QuotationRow)
12605             End Get
12606             Set
12607                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Quotation_Join_Quotation"))
12608             End Set
12609         End Property
12610     End Class
12611     
12612     '''<summary>
12613     '''Represents strongly named DataRow class.
12614     '''</summary>
12615     Partial Public Class RegistrationRow
12616         Inherits Global.System.Data.DataRow
12617         
12618         Private tableRegistration As RegistrationDataTable
12619         
12620         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12621          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12622         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
12623             MyBase.New(rb)
12624             Me.tableRegistration = CType(Me.Table,RegistrationDataTable)
12625         End Sub
12626         
12627         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12628          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12629         Public Property UserID() As String
12630             Get
12631                 Return CType(Me(Me.tableRegistration.UserIDColumn),String)
12632             End Get
12633             Set
12634                 Me(Me.tableRegistration.UserIDColumn) = value
12635             End Set
12636         End Property
12637         
12638         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12639          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12640         Public Property UserType() As String
12641             Get
12642                 Return CType(Me(Me.tableRegistration.UserTypeColumn),String)
12643             End Get
12644             Set
12645                 Me(Me.tableRegistration.UserTypeColumn) = value
12646             End Set
12647         End Property
12648         
12649         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12650          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12651         Public Property Password() As String
12652             Get
12653                 Return CType(Me(Me.tableRegistration.PasswordColumn),String)
12654             End Get
12655             Set
12656                 Me(Me.tableRegistration.PasswordColumn) = value
12657             End Set
12658         End Property
12659         
12660         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12661          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12662         Public Property Name() As String
12663             Get
12664                 Return CType(Me(Me.tableRegistration.NameColumn),String)
12665             End Get
12666             Set
12667                 Me(Me.tableRegistration.NameColumn) = value
12668             End Set
12669         End Property
12670         
12671         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12672          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12673         Public Property ContactNo() As String
12674             Get
12675                 Return CType(Me(Me.tableRegistration.ContactNoColumn),String)
12676             End Get
12677             Set
12678                 Me(Me.tableRegistration.ContactNoColumn) = value
12679             End Set
12680         End Property
12681         
12682         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12683          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12684         Public Property EmailID() As String
12685             Get
12686                 Try
12687                     Return CType(Me(Me.tableRegistration.EmailIDColumn),String)
12688                 Catch e As Global.System.InvalidCastException
12689                     Throw New Global.System.Data.StrongTypingException("The value for column 'EmailID' in table 'Registration' is DBNull.", e)
12690                 End Try
12691             End Get
12692             Set
12693                 Me(Me.tableRegistration.EmailIDColumn) = value
12694             End Set
12695         End Property
12696         
12697         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12698          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12699         Public Property JoiningDate() As Date
12700             Get
12701                 Try
12702                     Return CType(Me(Me.tableRegistration.JoiningDateColumn),Date)
12703                 Catch e As Global.System.InvalidCastException
12704                     Throw New Global.System.Data.StrongTypingException("The value for column 'JoiningDate' in table 'Registration' is DBNull.", e)
12705                 End Try
12706             End Get
12707             Set
12708                 Me(Me.tableRegistration.JoiningDateColumn) = value
12709             End Set
12710         End Property
12711         
12712         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12713          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12714         Public Function IsEmailIDNull() As Boolean
12715             Return Me.IsNull(Me.tableRegistration.EmailIDColumn)
12716         End Function
12717         
12718         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12719          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12720         Public Sub SetEmailIDNull()
12721             Me(Me.tableRegistration.EmailIDColumn) = Global.System.Convert.DBNull
12722         End Sub
12723         
12724         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12725          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12726         Public Function IsJoiningDateNull() As Boolean
12727             Return Me.IsNull(Me.tableRegistration.JoiningDateColumn)
12728         End Function
12729         
12730         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12731          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12732         Public Sub SetJoiningDateNull()
12733             Me(Me.tableRegistration.JoiningDateColumn) = Global.System.Convert.DBNull
12734         End Sub
12735         
12736         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12737          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12738         Public Function GetLogsRows() As LogsRow()
12739             If (Me.Table.ChildRelations("FK_Logs_Registration") Is Nothing) Then
12740                 Return New LogsRow(-1) {}
12741             Else
12742                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Logs_Registration")),LogsRow())
12743             End If
12744         End Function
12745     End Class
12746     
12747     '''<summary>
12748     '''Represents strongly named DataRow class.
12749     '''</summary>
12750     Partial Public Class ServiceRow
12751         Inherits Global.System.Data.DataRow
12752         
12753         Private tableService As ServiceDataTable
12754         
12755         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12756          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12757         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
12758             MyBase.New(rb)
12759             Me.tableService = CType(Me.Table,ServiceDataTable)
12760         End Sub
12761         
12762         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12763          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12764         Public Property S_ID() As Integer
12765             Get
12766                 Return CType(Me(Me.tableService.S_IDColumn),Integer)
12767             End Get
12768             Set
12769                 Me(Me.tableService.S_IDColumn) = value
12770             End Set
12771         End Property
12772         
12773         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12774          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12775         Public Property ServiceCode() As String
12776             Get
12777                 Return CType(Me(Me.tableService.ServiceCodeColumn),String)
12778             End Get
12779             Set
12780                 Me(Me.tableService.ServiceCodeColumn) = value
12781             End Set
12782         End Property
12783         
12784         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12785          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12786         Public Property CustomerID() As Integer
12787             Get
12788                 Return CType(Me(Me.tableService.CustomerIDColumn),Integer)
12789             End Get
12790             Set
12791                 Me(Me.tableService.CustomerIDColumn) = value
12792             End Set
12793         End Property
12794         
12795         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12796          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12797         Public Property ServiceType() As String
12798             Get
12799                 Try
12800                     Return CType(Me(Me.tableService.ServiceTypeColumn),String)
12801                 Catch e As Global.System.InvalidCastException
12802                     Throw New Global.System.Data.StrongTypingException("The value for column 'ServiceType' in table 'Service' is DBNull.", e)
12803                 End Try
12804             End Get
12805             Set
12806                 Me(Me.tableService.ServiceTypeColumn) = value
12807             End Set
12808         End Property
12809         
12810         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12811          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12812         Public Property ServiceCreationDate() As Date
12813             Get
12814                 Return CType(Me(Me.tableService.ServiceCreationDateColumn),Date)
12815             End Get
12816             Set
12817                 Me(Me.tableService.ServiceCreationDateColumn) = value
12818             End Set
12819         End Property
12820         
12821         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12822          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12823         Public Property ItemDescription() As String
12824             Get
12825                 Return CType(Me(Me.tableService.ItemDescriptionColumn),String)
12826             End Get
12827             Set
12828                 Me(Me.tableService.ItemDescriptionColumn) = value
12829             End Set
12830         End Property
12831         
12832         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12833          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12834         Public Property ProblemDescription() As String
12835             Get
12836                 Try
12837                     Return CType(Me(Me.tableService.ProblemDescriptionColumn),String)
12838                 Catch e As Global.System.InvalidCastException
12839                     Throw New Global.System.Data.StrongTypingException("The value for column 'ProblemDescription' in table 'Service' is DBNull.", e)
12840                 End Try
12841             End Get
12842             Set
12843                 Me(Me.tableService.ProblemDescriptionColumn) = value
12844             End Set
12845         End Property
12846         
12847         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12848          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12849         Public Property ChargesQuote() As Decimal
12850             Get
12851                 Return CType(Me(Me.tableService.ChargesQuoteColumn),Decimal)
12852             End Get
12853             Set
12854                 Me(Me.tableService.ChargesQuoteColumn) = value
12855             End Set
12856         End Property
12857         
12858         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12859          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12860         Public Property AdvanceDeposit() As Decimal
12861             Get
12862                 Return CType(Me(Me.tableService.AdvanceDepositColumn),Decimal)
12863             End Get
12864             Set
12865                 Me(Me.tableService.AdvanceDepositColumn) = value
12866             End Set
12867         End Property
12868         
12869         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12870          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12871         Public Property EstimatedRepairDate() As Date
12872             Get
12873                 Return CType(Me(Me.tableService.EstimatedRepairDateColumn),Date)
12874             End Get
12875             Set
12876                 Me(Me.tableService.EstimatedRepairDateColumn) = value
12877             End Set
12878         End Property
12879         
12880         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12881          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12882         Public Property Remarks() As String
12883             Get
12884                 Try
12885                     Return CType(Me(Me.tableService.RemarksColumn),String)
12886                 Catch e As Global.System.InvalidCastException
12887                     Throw New Global.System.Data.StrongTypingException("The value for column 'Remarks' in table 'Service' is DBNull.", e)
12888                 End Try
12889             End Get
12890             Set
12891                 Me(Me.tableService.RemarksColumn) = value
12892             End Set
12893         End Property
12894         
12895         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12896          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12897         Public Property Status() As String
12898             Get
12899                 Return CType(Me(Me.tableService.StatusColumn),String)
12900             End Get
12901             Set
12902                 Me(Me.tableService.StatusColumn) = value
12903             End Set
12904         End Property
12905         
12906         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12907          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12908         Public Property CustomerRow() As CustomerRow
12909             Get
12910                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Service_Customer")),CustomerRow)
12911             End Get
12912             Set
12913                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Service_Customer"))
12914             End Set
12915         End Property
12916         
12917         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12918          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12919         Public Function IsServiceTypeNull() As Boolean
12920             Return Me.IsNull(Me.tableService.ServiceTypeColumn)
12921         End Function
12922         
12923         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12924          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12925         Public Sub SetServiceTypeNull()
12926             Me(Me.tableService.ServiceTypeColumn) = Global.System.Convert.DBNull
12927         End Sub
12928         
12929         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12930          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12931         Public Function IsProblemDescriptionNull() As Boolean
12932             Return Me.IsNull(Me.tableService.ProblemDescriptionColumn)
12933         End Function
12934         
12935         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12936          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12937         Public Sub SetProblemDescriptionNull()
12938             Me(Me.tableService.ProblemDescriptionColumn) = Global.System.Convert.DBNull
12939         End Sub
12940         
12941         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12942          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12943         Public Function IsRemarksNull() As Boolean
12944             Return Me.IsNull(Me.tableService.RemarksColumn)
12945         End Function
12946         
12947         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12948          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12949         Public Sub SetRemarksNull()
12950             Me(Me.tableService.RemarksColumn) = Global.System.Convert.DBNull
12951         End Sub
12952         
12953         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12954          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12955         Public Function GetInvoiceInfo1Rows() As InvoiceInfo1Row()
12956             If (Me.Table.ChildRelations("FK_InvoiceInfo1_Service") Is Nothing) Then
12957                 Return New InvoiceInfo1Row(-1) {}
12958             Else
12959                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_InvoiceInfo1_Service")),InvoiceInfo1Row())
12960             End If
12961         End Function
12962     End Class
12963     
12964     '''<summary>
12965     '''Represents strongly named DataRow class.
12966     '''</summary>
12967     Partial Public Class SMSSettingRow
12968         Inherits Global.System.Data.DataRow
12969         
12970         Private tableSMSSetting As SMSSettingDataTable
12971         
12972         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12973          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12974         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
12975             MyBase.New(rb)
12976             Me.tableSMSSetting = CType(Me.Table,SMSSettingDataTable)
12977         End Sub
12978         
12979         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12980          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12981         Public Property Id() As Integer
12982             Get
12983                 Return CType(Me(Me.tableSMSSetting.IdColumn),Integer)
12984             End Get
12985             Set
12986                 Me(Me.tableSMSSetting.IdColumn) = value
12987             End Set
12988         End Property
12989         
12990         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12991          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12992         Public Property APIUrl() As String
12993             Get
12994                 Return CType(Me(Me.tableSMSSetting.APIUrlColumn),String)
12995             End Get
12996             Set
12997                 Me(Me.tableSMSSetting.APIUrlColumn) = value
12998             End Set
12999         End Property
13000         
13001         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13002          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13003         Public Property IsDefault() As String
13004             Get
13005                 Return CType(Me(Me.tableSMSSetting.IsDefaultColumn),String)
13006             End Get
13007             Set
13008                 Me(Me.tableSMSSetting.IsDefaultColumn) = value
13009             End Set
13010         End Property
13011         
13012         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13013          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13014         Public Property IsEnabled() As String
13015             Get
13016                 Return CType(Me(Me.tableSMSSetting.IsEnabledColumn),String)
13017             End Get
13018             Set
13019                 Me(Me.tableSMSSetting.IsEnabledColumn) = value
13020             End Set
13021         End Property
13022     End Class
13023     
13024     '''<summary>
13025     '''Represents strongly named DataRow class.
13026     '''</summary>
13027     Partial Public Class StockRow
13028         Inherits Global.System.Data.DataRow
13029         
13030         Private tableStock As StockDataTable
13031         
13032         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13033          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13034         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
13035             MyBase.New(rb)
13036             Me.tableStock = CType(Me.Table,StockDataTable)
13037         End Sub
13038         
13039         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13040          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13041         Public Property ST_ID() As Integer
13042             Get
13043                 Return CType(Me(Me.tableStock.ST_IDColumn),Integer)
13044             End Get
13045             Set
13046                 Me(Me.tableStock.ST_IDColumn) = value
13047             End Set
13048         End Property
13049         
13050         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13051          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13052         Public Property Stock_ID() As String
13053             Get
13054                 Return CType(Me(Me.tableStock.Stock_IDColumn),String)
13055             End Get
13056             Set
13057                 Me(Me.tableStock.Stock_IDColumn) = value
13058             End Set
13059         End Property
13060         
13061         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13062          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13063         Public Property _Date() As Date
13064             Get
13065                 Return CType(Me(Me.tableStock.DateColumn),Date)
13066             End Get
13067             Set
13068                 Me(Me.tableStock.DateColumn) = value
13069             End Set
13070         End Property
13071         
13072         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13073          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13074         Public Property SupplierID() As Integer
13075             Get
13076                 Return CType(Me(Me.tableStock.SupplierIDColumn),Integer)
13077             End Get
13078             Set
13079                 Me(Me.tableStock.SupplierIDColumn) = value
13080             End Set
13081         End Property
13082         
13083         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13084          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13085         Public Property GrandTotal() As Decimal
13086             Get
13087                 Return CType(Me(Me.tableStock.GrandTotalColumn),Decimal)
13088             End Get
13089             Set
13090                 Me(Me.tableStock.GrandTotalColumn) = value
13091             End Set
13092         End Property
13093         
13094         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13095          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13096         Public Property TotalPayment() As Decimal
13097             Get
13098                 Return CType(Me(Me.tableStock.TotalPaymentColumn),Decimal)
13099             End Get
13100             Set
13101                 Me(Me.tableStock.TotalPaymentColumn) = value
13102             End Set
13103         End Property
13104         
13105         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13106          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13107         Public Property PaymentDue() As Decimal
13108             Get
13109                 Return CType(Me(Me.tableStock.PaymentDueColumn),Decimal)
13110             End Get
13111             Set
13112                 Me(Me.tableStock.PaymentDueColumn) = value
13113             End Set
13114         End Property
13115         
13116         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13117          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13118         Public Property Remarks() As String
13119             Get
13120                 Try
13121                     Return CType(Me(Me.tableStock.RemarksColumn),String)
13122                 Catch e As Global.System.InvalidCastException
13123                     Throw New Global.System.Data.StrongTypingException("The value for column 'Remarks' in table 'Stock' is DBNull.", e)
13124                 End Try
13125             End Get
13126             Set
13127                 Me(Me.tableStock.RemarksColumn) = value
13128             End Set
13129         End Property
13130         
13131         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13132          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13133         Public Property SupplierRow() As SupplierRow
13134             Get
13135                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Stock_Supplier")),SupplierRow)
13136             End Get
13137             Set
13138                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Stock_Supplier"))
13139             End Set
13140         End Property
13141         
13142         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13143          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13144         Public Function IsRemarksNull() As Boolean
13145             Return Me.IsNull(Me.tableStock.RemarksColumn)
13146         End Function
13147         
13148         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13149          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13150         Public Sub SetRemarksNull()
13151             Me(Me.tableStock.RemarksColumn) = Global.System.Convert.DBNull
13152         End Sub
13153         
13154         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13155          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13156         Public Function GetStock_ProductRows() As Stock_ProductRow()
13157             If (Me.Table.ChildRelations("FK_Stock_Product_Stock") Is Nothing) Then
13158                 Return New Stock_ProductRow(-1) {}
13159             Else
13160                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Stock_Product_Stock")),Stock_ProductRow())
13161             End If
13162         End Function
13163     End Class
13164     
13165     '''<summary>
13166     '''Represents strongly named DataRow class.
13167     '''</summary>
13168     Partial Public Class Stock_ProductRow
13169         Inherits Global.System.Data.DataRow
13170         
13171         Private tableStock_Product As Stock_ProductDataTable
13172         
13173         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13174          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13175         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
13176             MyBase.New(rb)
13177             Me.tableStock_Product = CType(Me.Table,Stock_ProductDataTable)
13178         End Sub
13179         
13180         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13181          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13182         Public Property SP_ID() As Integer
13183             Get
13184                 Return CType(Me(Me.tableStock_Product.SP_IDColumn),Integer)
13185             End Get
13186             Set
13187                 Me(Me.tableStock_Product.SP_IDColumn) = value
13188             End Set
13189         End Property
13190         
13191         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13192          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13193         Public Property StockID() As Integer
13194             Get
13195                 Return CType(Me(Me.tableStock_Product.StockIDColumn),Integer)
13196             End Get
13197             Set
13198                 Me(Me.tableStock_Product.StockIDColumn) = value
13199             End Set
13200         End Property
13201         
13202         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13203          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13204         Public Property ProductID() As Integer
13205             Get
13206                 Return CType(Me(Me.tableStock_Product.ProductIDColumn),Integer)
13207             End Get
13208             Set
13209                 Me(Me.tableStock_Product.ProductIDColumn) = value
13210             End Set
13211         End Property
13212         
13213         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13214          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13215         Public Property Qty() As Integer
13216             Get
13217                 Return CType(Me(Me.tableStock_Product.QtyColumn),Integer)
13218             End Get
13219             Set
13220                 Me(Me.tableStock_Product.QtyColumn) = value
13221             End Set
13222         End Property
13223         
13224         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13225          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13226         Public Property Price() As Decimal
13227             Get
13228                 Return CType(Me(Me.tableStock_Product.PriceColumn),Decimal)
13229             End Get
13230             Set
13231                 Me(Me.tableStock_Product.PriceColumn) = value
13232             End Set
13233         End Property
13234         
13235         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13236          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13237         Public Property TotalAmount() As Decimal
13238             Get
13239                 Return CType(Me(Me.tableStock_Product.TotalAmountColumn),Decimal)
13240             End Get
13241             Set
13242                 Me(Me.tableStock_Product.TotalAmountColumn) = value
13243             End Set
13244         End Property
13245         
13246         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13247          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13248         Public Property ProductRow() As ProductRow
13249             Get
13250                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Stock_Product_Product")),ProductRow)
13251             End Get
13252             Set
13253                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Stock_Product_Product"))
13254             End Set
13255         End Property
13256         
13257         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13258          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13259         Public Property StockRow() As StockRow
13260             Get
13261                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Stock_Product_Stock")),StockRow)
13262             End Get
13263             Set
13264                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Stock_Product_Stock"))
13265             End Set
13266         End Property
13267     End Class
13268     
13269     '''<summary>
13270     '''Represents strongly named DataRow class.
13271     '''</summary>
13272     Partial Public Class SubCategoryRow
13273         Inherits Global.System.Data.DataRow
13274         
13275         Private tableSubCategory As SubCategoryDataTable
13276         
13277         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13278          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13279         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
13280             MyBase.New(rb)
13281             Me.tableSubCategory = CType(Me.Table,SubCategoryDataTable)
13282         End Sub
13283         
13284         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13285          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13286         Public Property ID() As Integer
13287             Get
13288                 Return CType(Me(Me.tableSubCategory.IDColumn),Integer)
13289             End Get
13290             Set
13291                 Me(Me.tableSubCategory.IDColumn) = value
13292             End Set
13293         End Property
13294         
13295         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13296          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13297         Public Property SubCategoryName() As String
13298             Get
13299                 Return CType(Me(Me.tableSubCategory.SubCategoryNameColumn),String)
13300             End Get
13301             Set
13302                 Me(Me.tableSubCategory.SubCategoryNameColumn) = value
13303             End Set
13304         End Property
13305         
13306         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13307          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13308         Public Property Category() As String
13309             Get
13310                 Return CType(Me(Me.tableSubCategory.CategoryColumn),String)
13311             End Get
13312             Set
13313                 Me(Me.tableSubCategory.CategoryColumn) = value
13314             End Set
13315         End Property
13316         
13317         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13318          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13319         Public Property CategoryRow() As CategoryRow
13320             Get
13321                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_SubCategory_Category")),CategoryRow)
13322             End Get
13323             Set
13324                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_SubCategory_Category"))
13325             End Set
13326         End Property
13327         
13328         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13329          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13330         Public Function GetProductRows() As ProductRow()
13331             If (Me.Table.ChildRelations("FK_Product_SubCategory") Is Nothing) Then
13332                 Return New ProductRow(-1) {}
13333             Else
13334                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Product_SubCategory")),ProductRow())
13335             End If
13336         End Function
13337     End Class
13338     
13339     '''<summary>
13340     '''Represents strongly named DataRow class.
13341     '''</summary>
13342     Partial Public Class SupplierRow
13343         Inherits Global.System.Data.DataRow
13344         
13345         Private tableSupplier As SupplierDataTable
13346         
13347         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13348          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13349         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
13350             MyBase.New(rb)
13351             Me.tableSupplier = CType(Me.Table,SupplierDataTable)
13352         End Sub
13353         
13354         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13355          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13356         Public Property ID() As Integer
13357             Get
13358                 Return CType(Me(Me.tableSupplier.IDColumn),Integer)
13359             End Get
13360             Set
13361                 Me(Me.tableSupplier.IDColumn) = value
13362             End Set
13363         End Property
13364         
13365         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13366          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13367         Public Property SupplierID() As String
13368             Get
13369                 Return CType(Me(Me.tableSupplier.SupplierIDColumn),String)
13370             End Get
13371             Set
13372                 Me(Me.tableSupplier.SupplierIDColumn) = value
13373             End Set
13374         End Property
13375         
13376         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13377          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13378         Public Property Name() As String
13379             Get
13380                 Try
13381                     Return CType(Me(Me.tableSupplier.NameColumn),String)
13382                 Catch e As Global.System.InvalidCastException
13383                     Throw New Global.System.Data.StrongTypingException("The value for column 'Name' in table 'Supplier' is DBNull.", e)
13384                 End Try
13385             End Get
13386             Set
13387                 Me(Me.tableSupplier.NameColumn) = value
13388             End Set
13389         End Property
13390         
13391         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13392          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13393         Public Property Address() As String
13394             Get
13395                 Try
13396                     Return CType(Me(Me.tableSupplier.AddressColumn),String)
13397                 Catch e As Global.System.InvalidCastException
13398                     Throw New Global.System.Data.StrongTypingException("The value for column 'Address' in table 'Supplier' is DBNull.", e)
13399                 End Try
13400             End Get
13401             Set
13402                 Me(Me.tableSupplier.AddressColumn) = value
13403             End Set
13404         End Property
13405         
13406         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13407          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13408         Public Property City() As String
13409             Get
13410                 Try
13411                     Return CType(Me(Me.tableSupplier.CityColumn),String)
13412                 Catch e As Global.System.InvalidCastException
13413                     Throw New Global.System.Data.StrongTypingException("The value for column 'City' in table 'Supplier' is DBNull.", e)
13414                 End Try
13415             End Get
13416             Set
13417                 Me(Me.tableSupplier.CityColumn) = value
13418             End Set
13419         End Property
13420         
13421         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13422          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13423         Public Property State() As String
13424             Get
13425                 Try
13426                     Return CType(Me(Me.tableSupplier.StateColumn),String)
13427                 Catch e As Global.System.InvalidCastException
13428                     Throw New Global.System.Data.StrongTypingException("The value for column 'State' in table 'Supplier' is DBNull.", e)
13429                 End Try
13430             End Get
13431             Set
13432                 Me(Me.tableSupplier.StateColumn) = value
13433             End Set
13434         End Property
13435         
13436         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13437          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13438         Public Property ZipCode() As String
13439             Get
13440                 Try
13441                     Return CType(Me(Me.tableSupplier.ZipCodeColumn),String)
13442                 Catch e As Global.System.InvalidCastException
13443                     Throw New Global.System.Data.StrongTypingException("The value for column 'ZipCode' in table 'Supplier' is DBNull.", e)
13444                 End Try
13445             End Get
13446             Set
13447                 Me(Me.tableSupplier.ZipCodeColumn) = value
13448             End Set
13449         End Property
13450         
13451         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13452          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13453         Public Property ContactNo() As String
13454             Get
13455                 Try
13456                     Return CType(Me(Me.tableSupplier.ContactNoColumn),String)
13457                 Catch e As Global.System.InvalidCastException
13458                     Throw New Global.System.Data.StrongTypingException("The value for column 'ContactNo' in table 'Supplier' is DBNull.", e)
13459                 End Try
13460             End Get
13461             Set
13462                 Me(Me.tableSupplier.ContactNoColumn) = value
13463             End Set
13464         End Property
13465         
13466         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13467          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13468         Public Property EmailID() As String
13469             Get
13470                 Try
13471                     Return CType(Me(Me.tableSupplier.EmailIDColumn),String)
13472                 Catch e As Global.System.InvalidCastException
13473                     Throw New Global.System.Data.StrongTypingException("The value for column 'EmailID' in table 'Supplier' is DBNull.", e)
13474                 End Try
13475             End Get
13476             Set
13477                 Me(Me.tableSupplier.EmailIDColumn) = value
13478             End Set
13479         End Property
13480         
13481         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13482          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13483         Public Property Remarks() As String
13484             Get
13485                 Try
13486                     Return CType(Me(Me.tableSupplier.RemarksColumn),String)
13487                 Catch e As Global.System.InvalidCastException
13488                     Throw New Global.System.Data.StrongTypingException("The value for column 'Remarks' in table 'Supplier' is DBNull.", e)
13489                 End Try
13490             End Get
13491             Set
13492                 Me(Me.tableSupplier.RemarksColumn) = value
13493             End Set
13494         End Property
13495         
13496         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13497          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13498         Public Function IsNameNull() As Boolean
13499             Return Me.IsNull(Me.tableSupplier.NameColumn)
13500         End Function
13501         
13502         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13503          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13504         Public Sub SetNameNull()
13505             Me(Me.tableSupplier.NameColumn) = Global.System.Convert.DBNull
13506         End Sub
13507         
13508         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13509          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13510         Public Function IsAddressNull() As Boolean
13511             Return Me.IsNull(Me.tableSupplier.AddressColumn)
13512         End Function
13513         
13514         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13515          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13516         Public Sub SetAddressNull()
13517             Me(Me.tableSupplier.AddressColumn) = Global.System.Convert.DBNull
13518         End Sub
13519         
13520         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13521          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13522         Public Function IsCityNull() As Boolean
13523             Return Me.IsNull(Me.tableSupplier.CityColumn)
13524         End Function
13525         
13526         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13527          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13528         Public Sub SetCityNull()
13529             Me(Me.tableSupplier.CityColumn) = Global.System.Convert.DBNull
13530         End Sub
13531         
13532         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13533          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13534         Public Function IsStateNull() As Boolean
13535             Return Me.IsNull(Me.tableSupplier.StateColumn)
13536         End Function
13537         
13538         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13539          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13540         Public Sub SetStateNull()
13541             Me(Me.tableSupplier.StateColumn) = Global.System.Convert.DBNull
13542         End Sub
13543         
13544         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13545          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13546         Public Function IsZipCodeNull() As Boolean
13547             Return Me.IsNull(Me.tableSupplier.ZipCodeColumn)
13548         End Function
13549         
13550         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13551          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13552         Public Sub SetZipCodeNull()
13553             Me(Me.tableSupplier.ZipCodeColumn) = Global.System.Convert.DBNull
13554         End Sub
13555         
13556         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13557          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13558         Public Function IsContactNoNull() As Boolean
13559             Return Me.IsNull(Me.tableSupplier.ContactNoColumn)
13560         End Function
13561         
13562         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13563          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13564         Public Sub SetContactNoNull()
13565             Me(Me.tableSupplier.ContactNoColumn) = Global.System.Convert.DBNull
13566         End Sub
13567         
13568         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13569          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13570         Public Function IsEmailIDNull() As Boolean
13571             Return Me.IsNull(Me.tableSupplier.EmailIDColumn)
13572         End Function
13573         
13574         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13575          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13576         Public Sub SetEmailIDNull()
13577             Me(Me.tableSupplier.EmailIDColumn) = Global.System.Convert.DBNull
13578         End Sub
13579         
13580         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13581          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13582         Public Function IsRemarksNull() As Boolean
13583             Return Me.IsNull(Me.tableSupplier.RemarksColumn)
13584         End Function
13585         
13586         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13587          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13588         Public Sub SetRemarksNull()
13589             Me(Me.tableSupplier.RemarksColumn) = Global.System.Convert.DBNull
13590         End Sub
13591         
13592         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13593          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13594         Public Function GetStockRows() As StockRow()
13595             If (Me.Table.ChildRelations("FK_Stock_Supplier") Is Nothing) Then
13596                 Return New StockRow(-1) {}
13597             Else
13598                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Stock_Supplier")),StockRow())
13599             End If
13600         End Function
13601     End Class
13602     
13603     '''<summary>
13604     '''Represents strongly named DataRow class.
13605     '''</summary>
13606     Partial Public Class Temp_StockRow
13607         Inherits Global.System.Data.DataRow
13608         
13609         Private tableTemp_Stock As Temp_StockDataTable
13610         
13611         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13612          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13613         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
13614             MyBase.New(rb)
13615             Me.tableTemp_Stock = CType(Me.Table,Temp_StockDataTable)
13616         End Sub
13617         
13618         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13619          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13620         Public Property ProductID() As Integer
13621             Get
13622                 Return CType(Me(Me.tableTemp_Stock.ProductIDColumn),Integer)
13623             End Get
13624             Set
13625                 Me(Me.tableTemp_Stock.ProductIDColumn) = value
13626             End Set
13627         End Property
13628         
13629         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13630          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13631         Public Property Qty() As Integer
13632             Get
13633                 Return CType(Me(Me.tableTemp_Stock.QtyColumn),Integer)
13634             End Get
13635             Set
13636                 Me(Me.tableTemp_Stock.QtyColumn) = value
13637             End Set
13638         End Property
13639         
13640         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13641          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13642         Public Property ProductRow() As ProductRow
13643             Get
13644                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Temp_Stock_Product")),ProductRow)
13645             End Get
13646             Set
13647                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Temp_Stock_Product"))
13648             End Set
13649         End Property
13650     End Class
13651     
13652     '''<summary>
13653     '''Represents strongly named DataRow class.
13654     '''</summary>
13655     Partial Public Class VoucherRow
13656         Inherits Global.System.Data.DataRow
13657         
13658         Private tableVoucher As VoucherDataTable
13659         
13660         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13661          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13662         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
13663             MyBase.New(rb)
13664             Me.tableVoucher = CType(Me.Table,VoucherDataTable)
13665         End Sub
13666         
13667         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13668          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13669         Public Property Id() As Integer
13670             Get
13671                 Return CType(Me(Me.tableVoucher.IdColumn),Integer)
13672             End Get
13673             Set
13674                 Me(Me.tableVoucher.IdColumn) = value
13675             End Set
13676         End Property
13677         
13678         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13679          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13680         Public Property VoucherNo() As String
13681             Get
13682                 Return CType(Me(Me.tableVoucher.VoucherNoColumn),String)
13683             End Get
13684             Set
13685                 Me(Me.tableVoucher.VoucherNoColumn) = value
13686             End Set
13687         End Property
13688         
13689         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13690          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13691         Public Property Name() As String
13692             Get
13693                 Try
13694                     Return CType(Me(Me.tableVoucher.NameColumn),String)
13695                 Catch e As Global.System.InvalidCastException
13696                     Throw New Global.System.Data.StrongTypingException("The value for column 'Name' in table 'Voucher' is DBNull.", e)
13697                 End Try
13698             End Get
13699             Set
13700                 Me(Me.tableVoucher.NameColumn) = value
13701             End Set
13702         End Property
13703         
13704         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13705          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13706         Public Property _Date() As Date
13707             Get
13708                 Return CType(Me(Me.tableVoucher.DateColumn),Date)
13709             End Get
13710             Set
13711                 Me(Me.tableVoucher.DateColumn) = value
13712             End Set
13713         End Property
13714         
13715         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13716          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13717         Public Property Details() As String
13718             Get
13719                 Try
13720                     Return CType(Me(Me.tableVoucher.DetailsColumn),String)
13721                 Catch e As Global.System.InvalidCastException
13722                     Throw New Global.System.Data.StrongTypingException("The value for column 'Details' in table 'Voucher' is DBNull.", e)
13723                 End Try
13724             End Get
13725             Set
13726                 Me(Me.tableVoucher.DetailsColumn) = value
13727             End Set
13728         End Property
13729         
13730         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13731          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13732         Public Property GrandTotal() As Decimal
13733             Get
13734                 Return CType(Me(Me.tableVoucher.GrandTotalColumn),Decimal)
13735             End Get
13736             Set
13737                 Me(Me.tableVoucher.GrandTotalColumn) = value
13738             End Set
13739         End Property
13740         
13741         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13742          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13743         Public Function IsNameNull() As Boolean
13744             Return Me.IsNull(Me.tableVoucher.NameColumn)
13745         End Function
13746         
13747         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13748          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13749         Public Sub SetNameNull()
13750             Me(Me.tableVoucher.NameColumn) = Global.System.Convert.DBNull
13751         End Sub
13752         
13753         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13754          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13755         Public Function IsDetailsNull() As Boolean
13756             Return Me.IsNull(Me.tableVoucher.DetailsColumn)
13757         End Function
13758         
13759         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13760          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13761         Public Sub SetDetailsNull()
13762             Me(Me.tableVoucher.DetailsColumn) = Global.System.Convert.DBNull
13763         End Sub
13764         
13765         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13766          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13767         Public Function GetVoucher_OtherDetailsRows() As Voucher_OtherDetailsRow()
13768             If (Me.Table.ChildRelations("FK_Voucher_OtherDetails_Voucher") Is Nothing) Then
13769                 Return New Voucher_OtherDetailsRow(-1) {}
13770             Else
13771                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Voucher_OtherDetails_Voucher")),Voucher_OtherDetailsRow())
13772             End If
13773         End Function
13774     End Class
13775     
13776     '''<summary>
13777     '''Represents strongly named DataRow class.
13778     '''</summary>
13779     Partial Public Class Voucher_OtherDetailsRow
13780         Inherits Global.System.Data.DataRow
13781         
13782         Private tableVoucher_OtherDetails As Voucher_OtherDetailsDataTable
13783         
13784         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13785          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13786         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
13787             MyBase.New(rb)
13788             Me.tableVoucher_OtherDetails = CType(Me.Table,Voucher_OtherDetailsDataTable)
13789         End Sub
13790         
13791         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13792          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13793         Public Property VD_ID() As Integer
13794             Get
13795                 Return CType(Me(Me.tableVoucher_OtherDetails.VD_IDColumn),Integer)
13796             End Get
13797             Set
13798                 Me(Me.tableVoucher_OtherDetails.VD_IDColumn) = value
13799             End Set
13800         End Property
13801         
13802         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13803          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13804         Public Property VoucherID() As Integer
13805             Get
13806                 Return CType(Me(Me.tableVoucher_OtherDetails.VoucherIDColumn),Integer)
13807             End Get
13808             Set
13809                 Me(Me.tableVoucher_OtherDetails.VoucherIDColumn) = value
13810             End Set
13811         End Property
13812         
13813         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13814          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13815         Public Property Particulars() As String
13816             Get
13817                 Return CType(Me(Me.tableVoucher_OtherDetails.ParticularsColumn),String)
13818             End Get
13819             Set
13820                 Me(Me.tableVoucher_OtherDetails.ParticularsColumn) = value
13821             End Set
13822         End Property
13823         
13824         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13825          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13826         Public Property Amount() As Decimal
13827             Get
13828                 Return CType(Me(Me.tableVoucher_OtherDetails.AmountColumn),Decimal)
13829             End Get
13830             Set
13831                 Me(Me.tableVoucher_OtherDetails.AmountColumn) = value
13832             End Set
13833         End Property
13834         
13835         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13836          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13837         Public Property Note() As String
13838             Get
13839                 Try
13840                     Return CType(Me(Me.tableVoucher_OtherDetails.NoteColumn),String)
13841                 Catch e As Global.System.InvalidCastException
13842                     Throw New Global.System.Data.StrongTypingException("The value for column 'Note' in table 'Voucher_OtherDetails' is DBNull.", e)
13843                 End Try
13844             End Get
13845             Set
13846                 Me(Me.tableVoucher_OtherDetails.NoteColumn) = value
13847             End Set
13848         End Property
13849         
13850         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13851          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13852         Public Property VoucherRow() As VoucherRow
13853             Get
13854                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Voucher_OtherDetails_Voucher")),VoucherRow)
13855             End Get
13856             Set
13857                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Voucher_OtherDetails_Voucher"))
13858             End Set
13859         End Property
13860         
13861         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13862          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13863         Public Function IsNoteNull() As Boolean
13864             Return Me.IsNull(Me.tableVoucher_OtherDetails.NoteColumn)
13865         End Function
13866         
13867         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13868          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13869         Public Sub SetNoteNull()
13870             Me(Me.tableVoucher_OtherDetails.NoteColumn) = Global.System.Convert.DBNull
13871         End Sub
13872     End Class
13873     
13874     '''<summary>
13875     '''Row event argument class
13876     '''</summary>
13877     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13878     Public Class ActivationRowChangeEvent
13879         Inherits Global.System.EventArgs
13880         
13881         Private eventRow As ActivationRow
13882         
13883         Private eventAction As Global.System.Data.DataRowAction
13884         
13885         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13886          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13887         Public Sub New(ByVal row As ActivationRow, ByVal action As Global.System.Data.DataRowAction)
13888             MyBase.New
13889             Me.eventRow = row
13890             Me.eventAction = action
13891         End Sub
13892         
13893         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13894          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13895         Public ReadOnly Property Row() As ActivationRow
13896             Get
13897                 Return Me.eventRow
13898             End Get
13899         End Property
13900         
13901         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13902          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13903         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
13904             Get
13905                 Return Me.eventAction
13906             End Get
13907         End Property
13908     End Class
13909     
13910     '''<summary>
13911     '''Row event argument class
13912     '''</summary>
13913     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13914     Public Class CategoryRowChangeEvent
13915         Inherits Global.System.EventArgs
13916         
13917         Private eventRow As CategoryRow
13918         
13919         Private eventAction As Global.System.Data.DataRowAction
13920         
13921         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13922          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13923         Public Sub New(ByVal row As CategoryRow, ByVal action As Global.System.Data.DataRowAction)
13924             MyBase.New
13925             Me.eventRow = row
13926             Me.eventAction = action
13927         End Sub
13928         
13929         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13930          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13931         Public ReadOnly Property Row() As CategoryRow
13932             Get
13933                 Return Me.eventRow
13934             End Get
13935         End Property
13936         
13937         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13938          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13939         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
13940             Get
13941                 Return Me.eventAction
13942             End Get
13943         End Property
13944     End Class
13945     
13946     '''<summary>
13947     '''Row event argument class
13948     '''</summary>
13949     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13950     Public Class CompanyRowChangeEvent
13951         Inherits Global.System.EventArgs
13952         
13953         Private eventRow As CompanyRow
13954         
13955         Private eventAction As Global.System.Data.DataRowAction
13956         
13957         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13958          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13959         Public Sub New(ByVal row As CompanyRow, ByVal action As Global.System.Data.DataRowAction)
13960             MyBase.New
13961             Me.eventRow = row
13962             Me.eventAction = action
13963         End Sub
13964         
13965         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13966          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13967         Public ReadOnly Property Row() As CompanyRow
13968             Get
13969                 Return Me.eventRow
13970             End Get
13971         End Property
13972         
13973         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13974          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13975         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
13976             Get
13977                 Return Me.eventAction
13978             End Get
13979         End Property
13980     End Class
13981     
13982     '''<summary>
13983     '''Row event argument class
13984     '''</summary>
13985     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13986     Public Class Company_ContactsRowChangeEvent
13987         Inherits Global.System.EventArgs
13988         
13989         Private eventRow As Company_ContactsRow
13990         
13991         Private eventAction As Global.System.Data.DataRowAction
13992         
13993         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13994          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13995         Public Sub New(ByVal row As Company_ContactsRow, ByVal action As Global.System.Data.DataRowAction)
13996             MyBase.New
13997             Me.eventRow = row
13998             Me.eventAction = action
13999         End Sub
14000         
14001         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14002          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14003         Public ReadOnly Property Row() As Company_ContactsRow
14004             Get
14005                 Return Me.eventRow
14006             End Get
14007         End Property
14008         
14009         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14010          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14011         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
14012             Get
14013                 Return Me.eventAction
14014             End Get
14015         End Property
14016     End Class
14017     
14018     '''<summary>
14019     '''Row event argument class
14020     '''</summary>
14021     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14022     Public Class CustomerRowChangeEvent
14023         Inherits Global.System.EventArgs
14024         
14025         Private eventRow As CustomerRow
14026         
14027         Private eventAction As Global.System.Data.DataRowAction
14028         
14029         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14030          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14031         Public Sub New(ByVal row As CustomerRow, ByVal action As Global.System.Data.DataRowAction)
14032             MyBase.New
14033             Me.eventRow = row
14034             Me.eventAction = action
14035         End Sub
14036         
14037         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14038          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14039         Public ReadOnly Property Row() As CustomerRow
14040             Get
14041                 Return Me.eventRow
14042             End Get
14043         End Property
14044         
14045         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14046          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14047         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
14048             Get
14049                 Return Me.eventAction
14050             End Get
14051         End Property
14052     End Class
14053     
14054     '''<summary>
14055     '''Row event argument class
14056     '''</summary>
14057     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14058     Public Class Invoice_PaymentRowChangeEvent
14059         Inherits Global.System.EventArgs
14060         
14061         Private eventRow As Invoice_PaymentRow
14062         
14063         Private eventAction As Global.System.Data.DataRowAction
14064         
14065         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14066          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14067         Public Sub New(ByVal row As Invoice_PaymentRow, ByVal action As Global.System.Data.DataRowAction)
14068             MyBase.New
14069             Me.eventRow = row
14070             Me.eventAction = action
14071         End Sub
14072         
14073         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14074          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14075         Public ReadOnly Property Row() As Invoice_PaymentRow
14076             Get
14077                 Return Me.eventRow
14078             End Get
14079         End Property
14080         
14081         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14082          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14083         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
14084             Get
14085                 Return Me.eventAction
14086             End Get
14087         End Property
14088     End Class
14089     
14090     '''<summary>
14091     '''Row event argument class
14092     '''</summary>
14093     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14094     Public Class Invoice_ProductRowChangeEvent
14095         Inherits Global.System.EventArgs
14096         
14097         Private eventRow As Invoice_ProductRow
14098         
14099         Private eventAction As Global.System.Data.DataRowAction
14100         
14101         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14102          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14103         Public Sub New(ByVal row As Invoice_ProductRow, ByVal action As Global.System.Data.DataRowAction)
14104             MyBase.New
14105             Me.eventRow = row
14106             Me.eventAction = action
14107         End Sub
14108         
14109         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14110          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14111         Public ReadOnly Property Row() As Invoice_ProductRow
14112             Get
14113                 Return Me.eventRow
14114             End Get
14115         End Property
14116         
14117         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14118          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14119         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
14120             Get
14121                 Return Me.eventAction
14122             End Get
14123         End Property
14124     End Class
14125     
14126     '''<summary>
14127     '''Row event argument class
14128     '''</summary>
14129     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14130     Public Class Invoice1_PaymentRowChangeEvent
14131         Inherits Global.System.EventArgs
14132         
14133         Private eventRow As Invoice1_PaymentRow
14134         
14135         Private eventAction As Global.System.Data.DataRowAction
14136         
14137         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14138          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14139         Public Sub New(ByVal row As Invoice1_PaymentRow, ByVal action As Global.System.Data.DataRowAction)
14140             MyBase.New
14141             Me.eventRow = row
14142             Me.eventAction = action
14143         End Sub
14144         
14145         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14146          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14147         Public ReadOnly Property Row() As Invoice1_PaymentRow
14148             Get
14149                 Return Me.eventRow
14150             End Get
14151         End Property
14152         
14153         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14154          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14155         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
14156             Get
14157                 Return Me.eventAction
14158             End Get
14159         End Property
14160     End Class
14161     
14162     '''<summary>
14163     '''Row event argument class
14164     '''</summary>
14165     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14166     Public Class Invoice1_ProductRowChangeEvent
14167         Inherits Global.System.EventArgs
14168         
14169         Private eventRow As Invoice1_ProductRow
14170         
14171         Private eventAction As Global.System.Data.DataRowAction
14172         
14173         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14174          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14175         Public Sub New(ByVal row As Invoice1_ProductRow, ByVal action As Global.System.Data.DataRowAction)
14176             MyBase.New
14177             Me.eventRow = row
14178             Me.eventAction = action
14179         End Sub
14180         
14181         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14182          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14183         Public ReadOnly Property Row() As Invoice1_ProductRow
14184             Get
14185                 Return Me.eventRow
14186             End Get
14187         End Property
14188         
14189         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14190          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14191         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
14192             Get
14193                 Return Me.eventAction
14194             End Get
14195         End Property
14196     End Class
14197     
14198     '''<summary>
14199     '''Row event argument class
14200     '''</summary>
14201     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14202     Public Class InvoiceInfoRowChangeEvent
14203         Inherits Global.System.EventArgs
14204         
14205         Private eventRow As InvoiceInfoRow
14206         
14207         Private eventAction As Global.System.Data.DataRowAction
14208         
14209         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14210          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14211         Public Sub New(ByVal row As InvoiceInfoRow, ByVal action As Global.System.Data.DataRowAction)
14212             MyBase.New
14213             Me.eventRow = row
14214             Me.eventAction = action
14215         End Sub
14216         
14217         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14218          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14219         Public ReadOnly Property Row() As InvoiceInfoRow
14220             Get
14221                 Return Me.eventRow
14222             End Get
14223         End Property
14224         
14225         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14226          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14227         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
14228             Get
14229                 Return Me.eventAction
14230             End Get
14231         End Property
14232     End Class
14233     
14234     '''<summary>
14235     '''Row event argument class
14236     '''</summary>
14237     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14238     Public Class InvoiceInfo1RowChangeEvent
14239         Inherits Global.System.EventArgs
14240         
14241         Private eventRow As InvoiceInfo1Row
14242         
14243         Private eventAction As Global.System.Data.DataRowAction
14244         
14245         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14246          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14247         Public Sub New(ByVal row As InvoiceInfo1Row, ByVal action As Global.System.Data.DataRowAction)
14248             MyBase.New
14249             Me.eventRow = row
14250             Me.eventAction = action
14251         End Sub
14252         
14253         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14254          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14255         Public ReadOnly Property Row() As InvoiceInfo1Row
14256             Get
14257                 Return Me.eventRow
14258             End Get
14259         End Property
14260         
14261         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14262          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14263         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
14264             Get
14265                 Return Me.eventAction
14266             End Get
14267         End Property
14268     End Class
14269     
14270     '''<summary>
14271     '''Row event argument class
14272     '''</summary>
14273     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14274     Public Class LogsRowChangeEvent
14275         Inherits Global.System.EventArgs
14276         
14277         Private eventRow As LogsRow
14278         
14279         Private eventAction As Global.System.Data.DataRowAction
14280         
14281         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14282          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14283         Public Sub New(ByVal row As LogsRow, ByVal action As Global.System.Data.DataRowAction)
14284             MyBase.New
14285             Me.eventRow = row
14286             Me.eventAction = action
14287         End Sub
14288         
14289         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14290          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14291         Public ReadOnly Property Row() As LogsRow
14292             Get
14293                 Return Me.eventRow
14294             End Get
14295         End Property
14296         
14297         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14298          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14299         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
14300             Get
14301                 Return Me.eventAction
14302             End Get
14303         End Property
14304     End Class
14305     
14306     '''<summary>
14307     '''Row event argument class
14308     '''</summary>
14309     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14310     Public Class ProductRowChangeEvent
14311         Inherits Global.System.EventArgs
14312         
14313         Private eventRow As ProductRow
14314         
14315         Private eventAction As Global.System.Data.DataRowAction
14316         
14317         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14318          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14319         Public Sub New(ByVal row As ProductRow, ByVal action As Global.System.Data.DataRowAction)
14320             MyBase.New
14321             Me.eventRow = row
14322             Me.eventAction = action
14323         End Sub
14324         
14325         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14326          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14327         Public ReadOnly Property Row() As ProductRow
14328             Get
14329                 Return Me.eventRow
14330             End Get
14331         End Property
14332         
14333         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14334          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14335         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
14336             Get
14337                 Return Me.eventAction
14338             End Get
14339         End Property
14340     End Class
14341     
14342     '''<summary>
14343     '''Row event argument class
14344     '''</summary>
14345     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14346     Public Class Product_JoinRowChangeEvent
14347         Inherits Global.System.EventArgs
14348         
14349         Private eventRow As Product_JoinRow
14350         
14351         Private eventAction As Global.System.Data.DataRowAction
14352         
14353         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14354          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14355         Public Sub New(ByVal row As Product_JoinRow, ByVal action As Global.System.Data.DataRowAction)
14356             MyBase.New
14357             Me.eventRow = row
14358             Me.eventAction = action
14359         End Sub
14360         
14361         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14362          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14363         Public ReadOnly Property Row() As Product_JoinRow
14364             Get
14365                 Return Me.eventRow
14366             End Get
14367         End Property
14368         
14369         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14370          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14371         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
14372             Get
14373                 Return Me.eventAction
14374             End Get
14375         End Property
14376     End Class
14377     
14378     '''<summary>
14379     '''Row event argument class
14380     '''</summary>
14381     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14382     Public Class QuotationRowChangeEvent
14383         Inherits Global.System.EventArgs
14384         
14385         Private eventRow As QuotationRow
14386         
14387         Private eventAction As Global.System.Data.DataRowAction
14388         
14389         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14390          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14391         Public Sub New(ByVal row As QuotationRow, ByVal action As Global.System.Data.DataRowAction)
14392             MyBase.New
14393             Me.eventRow = row
14394             Me.eventAction = action
14395         End Sub
14396         
14397         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14398          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14399         Public ReadOnly Property Row() As QuotationRow
14400             Get
14401                 Return Me.eventRow
14402             End Get
14403         End Property
14404         
14405         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14406          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14407         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
14408             Get
14409                 Return Me.eventAction
14410             End Get
14411         End Property
14412     End Class
14413     
14414     '''<summary>
14415     '''Row event argument class
14416     '''</summary>
14417     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14418     Public Class Quotation_JoinRowChangeEvent
14419         Inherits Global.System.EventArgs
14420         
14421         Private eventRow As Quotation_JoinRow
14422         
14423         Private eventAction As Global.System.Data.DataRowAction
14424         
14425         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14426          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14427         Public Sub New(ByVal row As Quotation_JoinRow, ByVal action As Global.System.Data.DataRowAction)
14428             MyBase.New
14429             Me.eventRow = row
14430             Me.eventAction = action
14431         End Sub
14432         
14433         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14434          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14435         Public ReadOnly Property Row() As Quotation_JoinRow
14436             Get
14437                 Return Me.eventRow
14438             End Get
14439         End Property
14440         
14441         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14442          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14443         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
14444             Get
14445                 Return Me.eventAction
14446             End Get
14447         End Property
14448     End Class
14449     
14450     '''<summary>
14451     '''Row event argument class
14452     '''</summary>
14453     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14454     Public Class RegistrationRowChangeEvent
14455         Inherits Global.System.EventArgs
14456         
14457         Private eventRow As RegistrationRow
14458         
14459         Private eventAction As Global.System.Data.DataRowAction
14460         
14461         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14462          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14463         Public Sub New(ByVal row As RegistrationRow, ByVal action As Global.System.Data.DataRowAction)
14464             MyBase.New
14465             Me.eventRow = row
14466             Me.eventAction = action
14467         End Sub
14468         
14469         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14470          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14471         Public ReadOnly Property Row() As RegistrationRow
14472             Get
14473                 Return Me.eventRow
14474             End Get
14475         End Property
14476         
14477         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14478          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14479         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
14480             Get
14481                 Return Me.eventAction
14482             End Get
14483         End Property
14484     End Class
14485     
14486     '''<summary>
14487     '''Row event argument class
14488     '''</summary>
14489     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14490     Public Class ServiceRowChangeEvent
14491         Inherits Global.System.EventArgs
14492         
14493         Private eventRow As ServiceRow
14494         
14495         Private eventAction As Global.System.Data.DataRowAction
14496         
14497         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14498          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14499         Public Sub New(ByVal row As ServiceRow, ByVal action As Global.System.Data.DataRowAction)
14500             MyBase.New
14501             Me.eventRow = row
14502             Me.eventAction = action
14503         End Sub
14504         
14505         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14506          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14507         Public ReadOnly Property Row() As ServiceRow
14508             Get
14509                 Return Me.eventRow
14510             End Get
14511         End Property
14512         
14513         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14514          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14515         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
14516             Get
14517                 Return Me.eventAction
14518             End Get
14519         End Property
14520     End Class
14521     
14522     '''<summary>
14523     '''Row event argument class
14524     '''</summary>
14525     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14526     Public Class SMSSettingRowChangeEvent
14527         Inherits Global.System.EventArgs
14528         
14529         Private eventRow As SMSSettingRow
14530         
14531         Private eventAction As Global.System.Data.DataRowAction
14532         
14533         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14534          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14535         Public Sub New(ByVal row As SMSSettingRow, ByVal action As Global.System.Data.DataRowAction)
14536             MyBase.New
14537             Me.eventRow = row
14538             Me.eventAction = action
14539         End Sub
14540         
14541         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14542          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14543         Public ReadOnly Property Row() As SMSSettingRow
14544             Get
14545                 Return Me.eventRow
14546             End Get
14547         End Property
14548         
14549         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14550          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14551         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
14552             Get
14553                 Return Me.eventAction
14554             End Get
14555         End Property
14556     End Class
14557     
14558     '''<summary>
14559     '''Row event argument class
14560     '''</summary>
14561     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14562     Public Class StockRowChangeEvent
14563         Inherits Global.System.EventArgs
14564         
14565         Private eventRow As StockRow
14566         
14567         Private eventAction As Global.System.Data.DataRowAction
14568         
14569         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14570          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14571         Public Sub New(ByVal row As StockRow, ByVal action As Global.System.Data.DataRowAction)
14572             MyBase.New
14573             Me.eventRow = row
14574             Me.eventAction = action
14575         End Sub
14576         
14577         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14578          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14579         Public ReadOnly Property Row() As StockRow
14580             Get
14581                 Return Me.eventRow
14582             End Get
14583         End Property
14584         
14585         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14586          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14587         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
14588             Get
14589                 Return Me.eventAction
14590             End Get
14591         End Property
14592     End Class
14593     
14594     '''<summary>
14595     '''Row event argument class
14596     '''</summary>
14597     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14598     Public Class Stock_ProductRowChangeEvent
14599         Inherits Global.System.EventArgs
14600         
14601         Private eventRow As Stock_ProductRow
14602         
14603         Private eventAction As Global.System.Data.DataRowAction
14604         
14605         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14606          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14607         Public Sub New(ByVal row As Stock_ProductRow, ByVal action As Global.System.Data.DataRowAction)
14608             MyBase.New
14609             Me.eventRow = row
14610             Me.eventAction = action
14611         End Sub
14612         
14613         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14614          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14615         Public ReadOnly Property Row() As Stock_ProductRow
14616             Get
14617                 Return Me.eventRow
14618             End Get
14619         End Property
14620         
14621         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14622          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14623         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
14624             Get
14625                 Return Me.eventAction
14626             End Get
14627         End Property
14628     End Class
14629     
14630     '''<summary>
14631     '''Row event argument class
14632     '''</summary>
14633     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14634     Public Class SubCategoryRowChangeEvent
14635         Inherits Global.System.EventArgs
14636         
14637         Private eventRow As SubCategoryRow
14638         
14639         Private eventAction As Global.System.Data.DataRowAction
14640         
14641         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14642          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14643         Public Sub New(ByVal row As SubCategoryRow, ByVal action As Global.System.Data.DataRowAction)
14644             MyBase.New
14645             Me.eventRow = row
14646             Me.eventAction = action
14647         End Sub
14648         
14649         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14650          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14651         Public ReadOnly Property Row() As SubCategoryRow
14652             Get
14653                 Return Me.eventRow
14654             End Get
14655         End Property
14656         
14657         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14658          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14659         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
14660             Get
14661                 Return Me.eventAction
14662             End Get
14663         End Property
14664     End Class
14665     
14666     '''<summary>
14667     '''Row event argument class
14668     '''</summary>
14669     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14670     Public Class SupplierRowChangeEvent
14671         Inherits Global.System.EventArgs
14672         
14673         Private eventRow As SupplierRow
14674         
14675         Private eventAction As Global.System.Data.DataRowAction
14676         
14677         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14678          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14679         Public Sub New(ByVal row As SupplierRow, ByVal action As Global.System.Data.DataRowAction)
14680             MyBase.New
14681             Me.eventRow = row
14682             Me.eventAction = action
14683         End Sub
14684         
14685         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14686          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14687         Public ReadOnly Property Row() As SupplierRow
14688             Get
14689                 Return Me.eventRow
14690             End Get
14691         End Property
14692         
14693         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14694          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14695         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
14696             Get
14697                 Return Me.eventAction
14698             End Get
14699         End Property
14700     End Class
14701     
14702     '''<summary>
14703     '''Row event argument class
14704     '''</summary>
14705     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14706     Public Class Temp_StockRowChangeEvent
14707         Inherits Global.System.EventArgs
14708         
14709         Private eventRow As Temp_StockRow
14710         
14711         Private eventAction As Global.System.Data.DataRowAction
14712         
14713         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14714          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14715         Public Sub New(ByVal row As Temp_StockRow, ByVal action As Global.System.Data.DataRowAction)
14716             MyBase.New
14717             Me.eventRow = row
14718             Me.eventAction = action
14719         End Sub
14720         
14721         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14722          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14723         Public ReadOnly Property Row() As Temp_StockRow
14724             Get
14725                 Return Me.eventRow
14726             End Get
14727         End Property
14728         
14729         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14730          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14731         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
14732             Get
14733                 Return Me.eventAction
14734             End Get
14735         End Property
14736     End Class
14737     
14738     '''<summary>
14739     '''Row event argument class
14740     '''</summary>
14741     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14742     Public Class VoucherRowChangeEvent
14743         Inherits Global.System.EventArgs
14744         
14745         Private eventRow As VoucherRow
14746         
14747         Private eventAction As Global.System.Data.DataRowAction
14748         
14749         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14750          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14751         Public Sub New(ByVal row As VoucherRow, ByVal action As Global.System.Data.DataRowAction)
14752             MyBase.New
14753             Me.eventRow = row
14754             Me.eventAction = action
14755         End Sub
14756         
14757         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14758          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14759         Public ReadOnly Property Row() As VoucherRow
14760             Get
14761                 Return Me.eventRow
14762             End Get
14763         End Property
14764         
14765         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14766          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14767         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
14768             Get
14769                 Return Me.eventAction
14770             End Get
14771         End Property
14772     End Class
14773     
14774     '''<summary>
14775     '''Row event argument class
14776     '''</summary>
14777     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14778     Public Class Voucher_OtherDetailsRowChangeEvent
14779         Inherits Global.System.EventArgs
14780         
14781         Private eventRow As Voucher_OtherDetailsRow
14782         
14783         Private eventAction As Global.System.Data.DataRowAction
14784         
14785         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14786          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14787         Public Sub New(ByVal row As Voucher_OtherDetailsRow, ByVal action As Global.System.Data.DataRowAction)
14788             MyBase.New
14789             Me.eventRow = row
14790             Me.eventAction = action
14791         End Sub
14792         
14793         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14794          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14795         Public ReadOnly Property Row() As Voucher_OtherDetailsRow
14796             Get
14797                 Return Me.eventRow
14798             End Get
14799         End Property
14800         
14801         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14802          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14803         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
14804             Get
14805                 Return Me.eventAction
14806             End Get
14807         End Property
14808     End Class
14809 End Class
14810
14811 Namespace SIS_DBDataSet2TableAdapters
14812     
14813     '''<summary>
14814     '''Represents the connection and commands used to retrieve and save data.
14815     '''</summary>
14816     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
14817      Global.System.ComponentModel.ToolboxItem(true), _
14818      Global.System.ComponentModel.DataObjectAttribute(true), _
14819      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
14820         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
14821      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14822     Partial Public Class ActivationTableAdapter
14823         Inherits Global.System.ComponentModel.Component
14824         
14825         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
14826         
14827         Private _connection As Global.System.Data.SqlClient.SqlConnection
14828         
14829         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
14830         
14831         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
14832         
14833         Private _clearBeforeFill As Boolean
14834         
14835         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14836          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14837         Public Sub New()
14838             MyBase.New
14839             Me.ClearBeforeFill = true
14840         End Sub
14841         
14842         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14843          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14844         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
14845             Get
14846                 If (Me._adapter Is Nothing) Then
14847                     Me.InitAdapter
14848                 End If
14849                 Return Me._adapter
14850             End Get
14851         End Property
14852         
14853         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14854          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14855         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
14856             Get
14857                 If (Me._connection Is Nothing) Then
14858                     Me.InitConnection
14859                 End If
14860                 Return Me._connection
14861             End Get
14862             Set
14863                 Me._connection = value
14864                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
14865                     Me.Adapter.InsertCommand.Connection = value
14866                 End If
14867                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
14868                     Me.Adapter.DeleteCommand.Connection = value
14869                 End If
14870                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
14871                     Me.Adapter.UpdateCommand.Connection = value
14872                 End If
14873                 Dim i As Integer = 0
14874                 Do While (i < Me.CommandCollection.Length)
14875                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
14876                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
14877                     End If
14878                     i = (i + 1)
14879                 Loop
14880             End Set
14881         End Property
14882         
14883         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14884          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14885         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
14886             Get
14887                 Return Me._transaction
14888             End Get
14889             Set
14890                 Me._transaction = value
14891                 Dim i As Integer = 0
14892                 Do While (i < Me.CommandCollection.Length)
14893                     Me.CommandCollection(i).Transaction = Me._transaction
14894                     i = (i + 1)
14895                 Loop
14896                 If ((Not (Me.Adapter) Is Nothing) _
14897                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
14898                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
14899                 End If
14900                 If ((Not (Me.Adapter) Is Nothing) _
14901                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
14902                     Me.Adapter.InsertCommand.Transaction = Me._transaction
14903                 End If
14904                 If ((Not (Me.Adapter) Is Nothing) _
14905                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
14906                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
14907                 End If
14908             End Set
14909         End Property
14910         
14911         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14912          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14913         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
14914             Get
14915                 If (Me._commandCollection Is Nothing) Then
14916                     Me.InitCommandCollection
14917                 End If
14918                 Return Me._commandCollection
14919             End Get
14920         End Property
14921         
14922         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14923          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14924         Public Property ClearBeforeFill() As Boolean
14925             Get
14926                 Return Me._clearBeforeFill
14927             End Get
14928             Set
14929                 Me._clearBeforeFill = value
14930             End Set
14931         End Property
14932         
14933         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14934          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14935         Private Sub InitAdapter()
14936             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
14937             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
14938             tableMapping.SourceTable = "Table"
14939             tableMapping.DataSetTable = "Activation"
14940             tableMapping.ColumnMappings.Add("ID", "ID")
14941             tableMapping.ColumnMappings.Add("HardwareID", "HardwareID")
14942             tableMapping.ColumnMappings.Add("SerialNo", "SerialNo")
14943             tableMapping.ColumnMappings.Add("ActivationID", "ActivationID")
14944             Me._adapter.TableMappings.Add(tableMapping)
14945             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
14946             Me._adapter.DeleteCommand.Connection = Me.Connection
14947             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Activation] WHERE (([ID] = @Original_ID) AND ([HardwareID] = @"& _
14948                 "Original_HardwareID) AND ([SerialNo] = @Original_SerialNo) AND ([ActivationID] ="& _
14949                 " @Original_ActivationID))"
14950             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
14951             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14952             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HardwareID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HardwareID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14953             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SerialNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SerialNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14954             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ActivationID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ActivationID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14955             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
14956             Me._adapter.InsertCommand.Connection = Me.Connection
14957             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Activation] ([HardwareID], [SerialNo], [ActivationID]) VALUES "& _
14958                 "(@HardwareID, @SerialNo, @ActivationID);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, HardwareID, SerialNo, Activ"& _
14959                 "ationID FROM Activation WHERE (ID = SCOPE_IDENTITY())"
14960             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
14961             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HardwareID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HardwareID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14962             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SerialNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SerialNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14963             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ActivationID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ActivationID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14964             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
14965             Me._adapter.UpdateCommand.Connection = Me.Connection
14966             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Activation] SET [HardwareID] = @HardwareID, [SerialNo] = @SerialNo,"& _
14967                 " [ActivationID] = @ActivationID WHERE (([ID] = @Original_ID) AND ([HardwareID] ="& _
14968                 " @Original_HardwareID) AND ([SerialNo] = @Original_SerialNo) AND ([ActivationID]"& _
14969                 " = @Original_ActivationID));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, HardwareID, SerialNo, ActivationID FROM"& _
14970                 " Activation WHERE (ID = @ID)"
14971             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
14972             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HardwareID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HardwareID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14973             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SerialNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SerialNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14974             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ActivationID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ActivationID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14975             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14976             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HardwareID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HardwareID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14977             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SerialNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SerialNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14978             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ActivationID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ActivationID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14979             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14980         End Sub
14981         
14982         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14983          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14984         Private Sub InitConnection()
14985             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
14986             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
14987         End Sub
14988         
14989         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14990          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14991         Private Sub InitCommandCollection()
14992             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
14993             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
14994             Me._commandCollection(0).Connection = Me.Connection
14995             Me._commandCollection(0).CommandText = "SELECT ID, HardwareID, SerialNo, ActivationID FROM dbo.Activation"
14996             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
14997         End Sub
14998         
14999         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15000          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15001          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15002          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
15003         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.ActivationDataTable) As Integer
15004             Me.Adapter.SelectCommand = Me.CommandCollection(0)
15005             If (Me.ClearBeforeFill = true) Then
15006                 dataTable.Clear
15007             End If
15008             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
15009             Return returnValue
15010         End Function
15011         
15012         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15013          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15014          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15015          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
15016         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.ActivationDataTable
15017             Me.Adapter.SelectCommand = Me.CommandCollection(0)
15018             Dim dataTable As SIS_DBDataSet2.ActivationDataTable = New SIS_DBDataSet2.ActivationDataTable()
15019             Me.Adapter.Fill(dataTable)
15020             Return dataTable
15021         End Function
15022         
15023         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15024          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15025          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15026         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.ActivationDataTable) As Integer
15027             Return Me.Adapter.Update(dataTable)
15028         End Function
15029         
15030         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15031          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15032          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15033         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
15034             Return Me.Adapter.Update(dataSet, "Activation")
15035         End Function
15036         
15037         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15038          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15039          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15040         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
15041             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
15042         End Function
15043         
15044         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15045          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15046          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15047         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
15048             Return Me.Adapter.Update(dataRows)
15049         End Function
15050         
15051         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15052          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15053          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15054          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
15055         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer, ByVal Original_HardwareID As String, ByVal Original_SerialNo As String, ByVal Original_ActivationID As String) As Integer
15056             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
15057             If (Original_HardwareID Is Nothing) Then
15058                 Throw New Global.System.ArgumentNullException("Original_HardwareID")
15059             Else
15060                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_HardwareID,String)
15061             End If
15062             If (Original_SerialNo Is Nothing) Then
15063                 Throw New Global.System.ArgumentNullException("Original_SerialNo")
15064             Else
15065                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_SerialNo,String)
15066             End If
15067             If (Original_ActivationID Is Nothing) Then
15068                 Throw New Global.System.ArgumentNullException("Original_ActivationID")
15069             Else
15070                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ActivationID,String)
15071             End If
15072             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
15073             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15074                         <> Global.System.Data.ConnectionState.Open) Then
15075                 Me.Adapter.DeleteCommand.Connection.Open
15076             End If
15077             Try
15078                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
15079                 Return returnValue
15080             Finally
15081                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15082                     Me.Adapter.DeleteCommand.Connection.Close
15083                 End If
15084             End Try
15085         End Function
15086         
15087         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15088          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15089          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15090          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
15091         Public Overloads Overridable Function Insert(ByVal HardwareID As String, ByVal SerialNo As String, ByVal ActivationID As String) As Integer
15092             If (HardwareID Is Nothing) Then
15093                 Throw New Global.System.ArgumentNullException("HardwareID")
15094             Else
15095                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(HardwareID,String)
15096             End If
15097             If (SerialNo Is Nothing) Then
15098                 Throw New Global.System.ArgumentNullException("SerialNo")
15099             Else
15100                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(SerialNo,String)
15101             End If
15102             If (ActivationID Is Nothing) Then
15103                 Throw New Global.System.ArgumentNullException("ActivationID")
15104             Else
15105                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(ActivationID,String)
15106             End If
15107             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
15108             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15109                         <> Global.System.Data.ConnectionState.Open) Then
15110                 Me.Adapter.InsertCommand.Connection.Open
15111             End If
15112             Try
15113                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
15114                 Return returnValue
15115             Finally
15116                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15117                     Me.Adapter.InsertCommand.Connection.Close
15118                 End If
15119             End Try
15120         End Function
15121         
15122         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15123          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15124          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15125          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
15126         Public Overloads Overridable Function Update(ByVal HardwareID As String, ByVal SerialNo As String, ByVal ActivationID As String, ByVal Original_ID As Integer, ByVal Original_HardwareID As String, ByVal Original_SerialNo As String, ByVal Original_ActivationID As String, ByVal ID As Integer) As Integer
15127             If (HardwareID Is Nothing) Then
15128                 Throw New Global.System.ArgumentNullException("HardwareID")
15129             Else
15130                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HardwareID,String)
15131             End If
15132             If (SerialNo Is Nothing) Then
15133                 Throw New Global.System.ArgumentNullException("SerialNo")
15134             Else
15135                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SerialNo,String)
15136             End If
15137             If (ActivationID Is Nothing) Then
15138                 Throw New Global.System.ArgumentNullException("ActivationID")
15139             Else
15140                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ActivationID,String)
15141             End If
15142             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_ID,Integer)
15143             If (Original_HardwareID Is Nothing) Then
15144                 Throw New Global.System.ArgumentNullException("Original_HardwareID")
15145             Else
15146                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_HardwareID,String)
15147             End If
15148             If (Original_SerialNo Is Nothing) Then
15149                 Throw New Global.System.ArgumentNullException("Original_SerialNo")
15150             Else
15151                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_SerialNo,String)
15152             End If
15153             If (Original_ActivationID Is Nothing) Then
15154                 Throw New Global.System.ArgumentNullException("Original_ActivationID")
15155             Else
15156                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ActivationID,String)
15157             End If
15158             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ID,Integer)
15159             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
15160             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15161                         <> Global.System.Data.ConnectionState.Open) Then
15162                 Me.Adapter.UpdateCommand.Connection.Open
15163             End If
15164             Try
15165                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
15166                 Return returnValue
15167             Finally
15168                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15169                     Me.Adapter.UpdateCommand.Connection.Close
15170                 End If
15171             End Try
15172         End Function
15173         
15174         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15175          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15176          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15177          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
15178         Public Overloads Overridable Function Update(ByVal HardwareID As String, ByVal SerialNo As String, ByVal ActivationID As String, ByVal Original_ID As Integer, ByVal Original_HardwareID As String, ByVal Original_SerialNo As String, ByVal Original_ActivationID As String) As Integer
15179             Return Me.Update(HardwareID, SerialNo, ActivationID, Original_ID, Original_HardwareID, Original_SerialNo, Original_ActivationID, Original_ID)
15180         End Function
15181     End Class
15182     
15183     '''<summary>
15184     '''Represents the connection and commands used to retrieve and save data.
15185     '''</summary>
15186     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
15187      Global.System.ComponentModel.ToolboxItem(true), _
15188      Global.System.ComponentModel.DataObjectAttribute(true), _
15189      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
15190         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
15191      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15192     Partial Public Class CategoryTableAdapter
15193         Inherits Global.System.ComponentModel.Component
15194         
15195         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
15196         
15197         Private _connection As Global.System.Data.SqlClient.SqlConnection
15198         
15199         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
15200         
15201         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
15202         
15203         Private _clearBeforeFill As Boolean
15204         
15205         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15206          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15207         Public Sub New()
15208             MyBase.New
15209             Me.ClearBeforeFill = true
15210         End Sub
15211         
15212         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15213          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15214         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
15215             Get
15216                 If (Me._adapter Is Nothing) Then
15217                     Me.InitAdapter
15218                 End If
15219                 Return Me._adapter
15220             End Get
15221         End Property
15222         
15223         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15224          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15225         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
15226             Get
15227                 If (Me._connection Is Nothing) Then
15228                     Me.InitConnection
15229                 End If
15230                 Return Me._connection
15231             End Get
15232             Set
15233                 Me._connection = value
15234                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
15235                     Me.Adapter.InsertCommand.Connection = value
15236                 End If
15237                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
15238                     Me.Adapter.DeleteCommand.Connection = value
15239                 End If
15240                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
15241                     Me.Adapter.UpdateCommand.Connection = value
15242                 End If
15243                 Dim i As Integer = 0
15244                 Do While (i < Me.CommandCollection.Length)
15245                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
15246                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
15247                     End If
15248                     i = (i + 1)
15249                 Loop
15250             End Set
15251         End Property
15252         
15253         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15254          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15255         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
15256             Get
15257                 Return Me._transaction
15258             End Get
15259             Set
15260                 Me._transaction = value
15261                 Dim i As Integer = 0
15262                 Do While (i < Me.CommandCollection.Length)
15263                     Me.CommandCollection(i).Transaction = Me._transaction
15264                     i = (i + 1)
15265                 Loop
15266                 If ((Not (Me.Adapter) Is Nothing) _
15267                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
15268                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
15269                 End If
15270                 If ((Not (Me.Adapter) Is Nothing) _
15271                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
15272                     Me.Adapter.InsertCommand.Transaction = Me._transaction
15273                 End If
15274                 If ((Not (Me.Adapter) Is Nothing) _
15275                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
15276                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
15277                 End If
15278             End Set
15279         End Property
15280         
15281         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15282          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15283         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
15284             Get
15285                 If (Me._commandCollection Is Nothing) Then
15286                     Me.InitCommandCollection
15287                 End If
15288                 Return Me._commandCollection
15289             End Get
15290         End Property
15291         
15292         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15293          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15294         Public Property ClearBeforeFill() As Boolean
15295             Get
15296                 Return Me._clearBeforeFill
15297             End Get
15298             Set
15299                 Me._clearBeforeFill = value
15300             End Set
15301         End Property
15302         
15303         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15304          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15305         Private Sub InitAdapter()
15306             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
15307             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
15308             tableMapping.SourceTable = "Table"
15309             tableMapping.DataSetTable = "Category"
15310             tableMapping.ColumnMappings.Add("CategoryName", "CategoryName")
15311             Me._adapter.TableMappings.Add(tableMapping)
15312             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
15313             Me._adapter.DeleteCommand.Connection = Me.Connection
15314             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Category] WHERE (([CategoryName] = @Original_CategoryName))"
15315             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
15316             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CategoryName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15317             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
15318             Me._adapter.InsertCommand.Connection = Me.Connection
15319             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Category] ([CategoryName]) VALUES (@CategoryName);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Cat"& _
15320                 "egoryName FROM Category WHERE (CategoryName = @CategoryName)"
15321             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
15322             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CategoryName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15323             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
15324             Me._adapter.UpdateCommand.Connection = Me.Connection
15325             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Category] SET [CategoryName] = @CategoryName WHERE (([CategoryName]"& _
15326                 " = @Original_CategoryName));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CategoryName FROM Category WHERE (CategoryN"& _
15327                 "ame = @CategoryName)"
15328             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
15329             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CategoryName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15330             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CategoryName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15331         End Sub
15332         
15333         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15334          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15335         Private Sub InitConnection()
15336             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
15337             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
15338         End Sub
15339         
15340         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15341          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15342         Private Sub InitCommandCollection()
15343             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
15344             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
15345             Me._commandCollection(0).Connection = Me.Connection
15346             Me._commandCollection(0).CommandText = "SELECT CategoryName FROM dbo.Category"
15347             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
15348         End Sub
15349         
15350         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15351          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15352          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15353          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
15354         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.CategoryDataTable) As Integer
15355             Me.Adapter.SelectCommand = Me.CommandCollection(0)
15356             If (Me.ClearBeforeFill = true) Then
15357                 dataTable.Clear
15358             End If
15359             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
15360             Return returnValue
15361         End Function
15362         
15363         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15364          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15365          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15366          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
15367         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.CategoryDataTable
15368             Me.Adapter.SelectCommand = Me.CommandCollection(0)
15369             Dim dataTable As SIS_DBDataSet2.CategoryDataTable = New SIS_DBDataSet2.CategoryDataTable()
15370             Me.Adapter.Fill(dataTable)
15371             Return dataTable
15372         End Function
15373         
15374         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15375          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15376          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15377         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.CategoryDataTable) As Integer
15378             Return Me.Adapter.Update(dataTable)
15379         End Function
15380         
15381         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15382          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15383          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15384         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
15385             Return Me.Adapter.Update(dataSet, "Category")
15386         End Function
15387         
15388         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15389          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15390          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15391         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
15392             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
15393         End Function
15394         
15395         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15396          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15397          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15398         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
15399             Return Me.Adapter.Update(dataRows)
15400         End Function
15401         
15402         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15403          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15404          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15405          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
15406         Public Overloads Overridable Function Delete(ByVal Original_CategoryName As String) As Integer
15407             If (Original_CategoryName Is Nothing) Then
15408                 Throw New Global.System.ArgumentNullException("Original_CategoryName")
15409             Else
15410                 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_CategoryName,String)
15411             End If
15412             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
15413             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15414                         <> Global.System.Data.ConnectionState.Open) Then
15415                 Me.Adapter.DeleteCommand.Connection.Open
15416             End If
15417             Try
15418                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
15419                 Return returnValue
15420             Finally
15421                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15422                     Me.Adapter.DeleteCommand.Connection.Close
15423                 End If
15424             End Try
15425         End Function
15426         
15427         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15428          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15429          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15430          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
15431         Public Overloads Overridable Function Insert(ByVal CategoryName As String) As Integer
15432             If (CategoryName Is Nothing) Then
15433                 Throw New Global.System.ArgumentNullException("CategoryName")
15434             Else
15435                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(CategoryName,String)
15436             End If
15437             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
15438             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15439                         <> Global.System.Data.ConnectionState.Open) Then
15440                 Me.Adapter.InsertCommand.Connection.Open
15441             End If
15442             Try
15443                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
15444                 Return returnValue
15445             Finally
15446                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15447                     Me.Adapter.InsertCommand.Connection.Close
15448                 End If
15449             End Try
15450         End Function
15451         
15452         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15453          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15454          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15455          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
15456         Public Overloads Overridable Function Update(ByVal CategoryName As String, ByVal Original_CategoryName As String) As Integer
15457             If (CategoryName Is Nothing) Then
15458                 Throw New Global.System.ArgumentNullException("CategoryName")
15459             Else
15460                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CategoryName,String)
15461             End If
15462             If (Original_CategoryName Is Nothing) Then
15463                 Throw New Global.System.ArgumentNullException("Original_CategoryName")
15464             Else
15465                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_CategoryName,String)
15466             End If
15467             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
15468             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15469                         <> Global.System.Data.ConnectionState.Open) Then
15470                 Me.Adapter.UpdateCommand.Connection.Open
15471             End If
15472             Try
15473                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
15474                 Return returnValue
15475             Finally
15476                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15477                     Me.Adapter.UpdateCommand.Connection.Close
15478                 End If
15479             End Try
15480         End Function
15481         
15482         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15483          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15484          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15485          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
15486         Public Overloads Overridable Function Update(ByVal Original_CategoryName As String) As Integer
15487             Return Me.Update(Original_CategoryName, Original_CategoryName)
15488         End Function
15489     End Class
15490     
15491     '''<summary>
15492     '''Represents the connection and commands used to retrieve and save data.
15493     '''</summary>
15494     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
15495      Global.System.ComponentModel.ToolboxItem(true), _
15496      Global.System.ComponentModel.DataObjectAttribute(true), _
15497      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
15498         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
15499      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15500     Partial Public Class CompanyTableAdapter
15501         Inherits Global.System.ComponentModel.Component
15502         
15503         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
15504         
15505         Private _connection As Global.System.Data.SqlClient.SqlConnection
15506         
15507         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
15508         
15509         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
15510         
15511         Private _clearBeforeFill As Boolean
15512         
15513         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15514          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15515         Public Sub New()
15516             MyBase.New
15517             Me.ClearBeforeFill = true
15518         End Sub
15519         
15520         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15521          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15522         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
15523             Get
15524                 If (Me._adapter Is Nothing) Then
15525                     Me.InitAdapter
15526                 End If
15527                 Return Me._adapter
15528             End Get
15529         End Property
15530         
15531         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15532          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15533         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
15534             Get
15535                 If (Me._connection Is Nothing) Then
15536                     Me.InitConnection
15537                 End If
15538                 Return Me._connection
15539             End Get
15540             Set
15541                 Me._connection = value
15542                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
15543                     Me.Adapter.InsertCommand.Connection = value
15544                 End If
15545                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
15546                     Me.Adapter.DeleteCommand.Connection = value
15547                 End If
15548                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
15549                     Me.Adapter.UpdateCommand.Connection = value
15550                 End If
15551                 Dim i As Integer = 0
15552                 Do While (i < Me.CommandCollection.Length)
15553                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
15554                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
15555                     End If
15556                     i = (i + 1)
15557                 Loop
15558             End Set
15559         End Property
15560         
15561         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15562          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15563         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
15564             Get
15565                 Return Me._transaction
15566             End Get
15567             Set
15568                 Me._transaction = value
15569                 Dim i As Integer = 0
15570                 Do While (i < Me.CommandCollection.Length)
15571                     Me.CommandCollection(i).Transaction = Me._transaction
15572                     i = (i + 1)
15573                 Loop
15574                 If ((Not (Me.Adapter) Is Nothing) _
15575                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
15576                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
15577                 End If
15578                 If ((Not (Me.Adapter) Is Nothing) _
15579                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
15580                     Me.Adapter.InsertCommand.Transaction = Me._transaction
15581                 End If
15582                 If ((Not (Me.Adapter) Is Nothing) _
15583                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
15584                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
15585                 End If
15586             End Set
15587         End Property
15588         
15589         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15590          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15591         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
15592             Get
15593                 If (Me._commandCollection Is Nothing) Then
15594                     Me.InitCommandCollection
15595                 End If
15596                 Return Me._commandCollection
15597             End Get
15598         End Property
15599         
15600         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15601          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15602         Public Property ClearBeforeFill() As Boolean
15603             Get
15604                 Return Me._clearBeforeFill
15605             End Get
15606             Set
15607                 Me._clearBeforeFill = value
15608             End Set
15609         End Property
15610         
15611         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15612          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15613         Private Sub InitAdapter()
15614             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
15615             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
15616             tableMapping.SourceTable = "Table"
15617             tableMapping.DataSetTable = "Company"
15618             tableMapping.ColumnMappings.Add("ID", "ID")
15619             tableMapping.ColumnMappings.Add("CompanyName", "CompanyName")
15620             tableMapping.ColumnMappings.Add("Address", "Address")
15621             tableMapping.ColumnMappings.Add("ContactNo", "ContactNo")
15622             tableMapping.ColumnMappings.Add("EmailID", "EmailID")
15623             tableMapping.ColumnMappings.Add("Logo", "Logo")
15624             tableMapping.ColumnMappings.Add("TIN", "TIN")
15625             tableMapping.ColumnMappings.Add("STNo", "STNo")
15626             tableMapping.ColumnMappings.Add("CIN", "CIN")
15627             Me._adapter.TableMappings.Add(tableMapping)
15628             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
15629             Me._adapter.DeleteCommand.Connection = Me.Connection
15630             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Company] WHERE (([ID] = @Original_ID) AND ([CompanyName] = @Or"& _
15631                 "iginal_CompanyName) AND ([Address] = @Original_Address) AND ([ContactNo] = @Orig"& _
15632                 "inal_ContactNo) AND ([EmailID] = @Original_EmailID) AND ((@IsNull_TIN = 1 AND [T"& _
15633                 "IN] IS NULL) OR ([TIN] = @Original_TIN)) AND ((@IsNull_STNo = 1 AND [STNo] IS NU"& _
15634                 "LL) OR ([STNo] = @Original_STNo)) AND ((@IsNull_CIN = 1 AND [CIN] IS NULL) OR (["& _
15635                 "CIN] = @Original_CIN)))"
15636             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
15637             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15638             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CompanyName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CompanyName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15639             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15640             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15641             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15642             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
15643             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15644             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
15645             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15646             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
15647             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15648             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
15649             Me._adapter.InsertCommand.Connection = Me.Connection
15650             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Company] ([CompanyName], [Address], [ContactNo], [EmailID], [L"& _
15651                 "ogo], [TIN], [STNo], [CIN]) VALUES (@CompanyName, @Address, @ContactNo, @EmailID"& _
15652                 ", @Logo, @TIN, @STNo, @CIN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, CompanyName, Address, ContactNo, EmailI"& _
15653                 "D, Logo, TIN, STNo, CIN FROM Company WHERE (ID = SCOPE_IDENTITY())"
15654             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
15655             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CompanyName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CompanyName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15656             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15657             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15658             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15659             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Logo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Logo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15660             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15661             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15662             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15663             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
15664             Me._adapter.UpdateCommand.Connection = Me.Connection
15665             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Company] SET [CompanyName] = @CompanyName, [Address] = @Address, [C"& _
15666                 "ontactNo] = @ContactNo, [EmailID] = @EmailID, [Logo] = @Logo, [TIN] = @TIN, [STN"& _
15667                 "o] = @STNo, [CIN] = @CIN WHERE (([ID] = @Original_ID) AND ([CompanyName] = @Orig"& _
15668                 "inal_CompanyName) AND ([Address] = @Original_Address) AND ([ContactNo] = @Origin"& _
15669                 "al_ContactNo) AND ([EmailID] = @Original_EmailID) AND ((@IsNull_TIN = 1 AND [TIN"& _
15670                 "] IS NULL) OR ([TIN] = @Original_TIN)) AND ((@IsNull_STNo = 1 AND [STNo] IS NULL"& _
15671                 ") OR ([STNo] = @Original_STNo)) AND ((@IsNull_CIN = 1 AND [CIN] IS NULL) OR ([CI"& _
15672                 "N] = @Original_CIN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, CompanyName, Address, ContactNo, EmailID, Log"& _
15673                 "o, TIN, STNo, CIN FROM Company WHERE (ID = @ID)"
15674             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
15675             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CompanyName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CompanyName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15676             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15677             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15678             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15679             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Logo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Logo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15680             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15681             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15682             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15683             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15684             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CompanyName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CompanyName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15685             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15686             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15687             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15688             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
15689             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15690             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
15691             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15692             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
15693             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15694             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15695         End Sub
15696         
15697         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15698          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15699         Private Sub InitConnection()
15700             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
15701             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
15702         End Sub
15703         
15704         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15705          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15706         Private Sub InitCommandCollection()
15707             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
15708             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
15709             Me._commandCollection(0).Connection = Me.Connection
15710             Me._commandCollection(0).CommandText = "SELECT ID, CompanyName, Address, ContactNo, EmailID, Logo, TIN, STNo, CIN FROM db"& _
15711                 "o.Company"
15712             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
15713         End Sub
15714         
15715         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15716          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15717          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15718          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
15719         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.CompanyDataTable) As Integer
15720             Me.Adapter.SelectCommand = Me.CommandCollection(0)
15721             If (Me.ClearBeforeFill = true) Then
15722                 dataTable.Clear
15723             End If
15724             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
15725             Return returnValue
15726         End Function
15727         
15728         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15729          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15730          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15731          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
15732         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.CompanyDataTable
15733             Me.Adapter.SelectCommand = Me.CommandCollection(0)
15734             Dim dataTable As SIS_DBDataSet2.CompanyDataTable = New SIS_DBDataSet2.CompanyDataTable()
15735             Me.Adapter.Fill(dataTable)
15736             Return dataTable
15737         End Function
15738         
15739         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15740          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15741          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15742         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.CompanyDataTable) As Integer
15743             Return Me.Adapter.Update(dataTable)
15744         End Function
15745         
15746         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15747          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15748          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15749         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
15750             Return Me.Adapter.Update(dataSet, "Company")
15751         End Function
15752         
15753         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15754          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15755          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15756         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
15757             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
15758         End Function
15759         
15760         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15761          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15762          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15763         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
15764             Return Me.Adapter.Update(dataRows)
15765         End Function
15766         
15767         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15768          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15769          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15770          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
15771         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer, ByVal Original_CompanyName As String, ByVal Original_Address As String, ByVal Original_ContactNo As String, ByVal Original_EmailID As String, ByVal Original_TIN As String, ByVal Original_STNo As String, ByVal Original_CIN As String) As Integer
15772             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
15773             If (Original_CompanyName Is Nothing) Then
15774                 Throw New Global.System.ArgumentNullException("Original_CompanyName")
15775             Else
15776                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_CompanyName,String)
15777             End If
15778             If (Original_Address Is Nothing) Then
15779                 Throw New Global.System.ArgumentNullException("Original_Address")
15780             Else
15781                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Address,String)
15782             End If
15783             If (Original_ContactNo Is Nothing) Then
15784                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
15785             Else
15786                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ContactNo,String)
15787             End If
15788             If (Original_EmailID Is Nothing) Then
15789                 Throw New Global.System.ArgumentNullException("Original_EmailID")
15790             Else
15791                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_EmailID,String)
15792             End If
15793             If (Original_TIN Is Nothing) Then
15794                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
15795                 Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
15796             Else
15797                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
15798                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_TIN,String)
15799             End If
15800             If (Original_STNo Is Nothing) Then
15801                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
15802                 Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
15803             Else
15804                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
15805                 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_STNo,String)
15806             End If
15807             If (Original_CIN Is Nothing) Then
15808                 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
15809                 Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
15810             Else
15811                 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
15812                 Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CIN,String)
15813             End If
15814             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
15815             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15816                         <> Global.System.Data.ConnectionState.Open) Then
15817                 Me.Adapter.DeleteCommand.Connection.Open
15818             End If
15819             Try
15820                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
15821                 Return returnValue
15822             Finally
15823                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15824                     Me.Adapter.DeleteCommand.Connection.Close
15825                 End If
15826             End Try
15827         End Function
15828         
15829         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15830          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15831          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15832          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
15833         Public Overloads Overridable Function Insert(ByVal CompanyName As String, ByVal Address As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal Logo() As Byte, ByVal TIN As String, ByVal STNo As String, ByVal CIN As String) As Integer
15834             If (CompanyName Is Nothing) Then
15835                 Throw New Global.System.ArgumentNullException("CompanyName")
15836             Else
15837                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(CompanyName,String)
15838             End If
15839             If (Address Is Nothing) Then
15840                 Throw New Global.System.ArgumentNullException("Address")
15841             Else
15842                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Address,String)
15843             End If
15844             If (ContactNo Is Nothing) Then
15845                 Throw New Global.System.ArgumentNullException("ContactNo")
15846             Else
15847                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(ContactNo,String)
15848             End If
15849             If (EmailID Is Nothing) Then
15850                 Throw New Global.System.ArgumentNullException("EmailID")
15851             Else
15852                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(EmailID,String)
15853             End If
15854             If (Logo Is Nothing) Then
15855                 Throw New Global.System.ArgumentNullException("Logo")
15856             Else
15857                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Logo,Byte())
15858             End If
15859             If (TIN Is Nothing) Then
15860                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
15861             Else
15862                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(TIN,String)
15863             End If
15864             If (STNo Is Nothing) Then
15865                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
15866             Else
15867                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(STNo,String)
15868             End If
15869             If (CIN Is Nothing) Then
15870                 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
15871             Else
15872                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(CIN,String)
15873             End If
15874             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
15875             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15876                         <> Global.System.Data.ConnectionState.Open) Then
15877                 Me.Adapter.InsertCommand.Connection.Open
15878             End If
15879             Try
15880                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
15881                 Return returnValue
15882             Finally
15883                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15884                     Me.Adapter.InsertCommand.Connection.Close
15885                 End If
15886             End Try
15887         End Function
15888         
15889         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15890          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15891          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15892          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
15893         Public Overloads Overridable Function Update( _
15894                     ByVal CompanyName As String, _
15895                     ByVal Address As String, _
15896                     ByVal ContactNo As String, _
15897                     ByVal EmailID As String, _
15898                     ByVal Logo() As Byte, _
15899                     ByVal TIN As String, _
15900                     ByVal STNo As String, _
15901                     ByVal CIN As String, _
15902                     ByVal Original_ID As Integer, _
15903                     ByVal Original_CompanyName As String, _
15904                     ByVal Original_Address As String, _
15905                     ByVal Original_ContactNo As String, _
15906                     ByVal Original_EmailID As String, _
15907                     ByVal Original_TIN As String, _
15908                     ByVal Original_STNo As String, _
15909                     ByVal Original_CIN As String, _
15910                     ByVal ID As Integer) As Integer
15911             If (CompanyName Is Nothing) Then
15912                 Throw New Global.System.ArgumentNullException("CompanyName")
15913             Else
15914                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CompanyName,String)
15915             End If
15916             If (Address Is Nothing) Then
15917                 Throw New Global.System.ArgumentNullException("Address")
15918             Else
15919                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Address,String)
15920             End If
15921             If (ContactNo Is Nothing) Then
15922                 Throw New Global.System.ArgumentNullException("ContactNo")
15923             Else
15924                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ContactNo,String)
15925             End If
15926             If (EmailID Is Nothing) Then
15927                 Throw New Global.System.ArgumentNullException("EmailID")
15928             Else
15929                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EmailID,String)
15930             End If
15931             If (Logo Is Nothing) Then
15932                 Throw New Global.System.ArgumentNullException("Logo")
15933             Else
15934                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Logo,Byte())
15935             End If
15936             If (TIN Is Nothing) Then
15937                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
15938             Else
15939                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TIN,String)
15940             End If
15941             If (STNo Is Nothing) Then
15942                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
15943             Else
15944                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(STNo,String)
15945             End If
15946             If (CIN Is Nothing) Then
15947                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
15948             Else
15949                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CIN,String)
15950             End If
15951             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ID,Integer)
15952             If (Original_CompanyName Is Nothing) Then
15953                 Throw New Global.System.ArgumentNullException("Original_CompanyName")
15954             Else
15955                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_CompanyName,String)
15956             End If
15957             If (Original_Address Is Nothing) Then
15958                 Throw New Global.System.ArgumentNullException("Original_Address")
15959             Else
15960                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Address,String)
15961             End If
15962             If (Original_ContactNo Is Nothing) Then
15963                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
15964             Else
15965                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ContactNo,String)
15966             End If
15967             If (Original_EmailID Is Nothing) Then
15968                 Throw New Global.System.ArgumentNullException("Original_EmailID")
15969             Else
15970                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_EmailID,String)
15971             End If
15972             If (Original_TIN Is Nothing) Then
15973                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object)
15974                 Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
15975             Else
15976                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object)
15977                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_TIN,String)
15978             End If
15979             If (Original_STNo Is Nothing) Then
15980                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object)
15981                 Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
15982             Else
15983                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object)
15984                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_STNo,String)
15985             End If
15986             If (Original_CIN Is Nothing) Then
15987                 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object)
15988                 Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value
15989             Else
15990                 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object)
15991                 Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_CIN,String)
15992             End If
15993             Me.Adapter.UpdateCommand.Parameters(19).Value = CType(ID,Integer)
15994             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
15995             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15996                         <> Global.System.Data.ConnectionState.Open) Then
15997                 Me.Adapter.UpdateCommand.Connection.Open
15998             End If
15999             Try
16000                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
16001                 Return returnValue
16002             Finally
16003                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
16004                     Me.Adapter.UpdateCommand.Connection.Close
16005                 End If
16006             End Try
16007         End Function
16008         
16009         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16010          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16011          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16012          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
16013         Public Overloads Overridable Function Update( _
16014                     ByVal CompanyName As String, _
16015                     ByVal Address As String, _
16016                     ByVal ContactNo As String, _
16017                     ByVal EmailID As String, _
16018                     ByVal Logo() As Byte, _
16019                     ByVal TIN As String, _
16020                     ByVal STNo As String, _
16021                     ByVal CIN As String, _
16022                     ByVal Original_ID As Integer, _
16023                     ByVal Original_CompanyName As String, _
16024                     ByVal Original_Address As String, _
16025                     ByVal Original_ContactNo As String, _
16026                     ByVal Original_EmailID As String, _
16027                     ByVal Original_TIN As String, _
16028                     ByVal Original_STNo As String, _
16029                     ByVal Original_CIN As String) As Integer
16030             Return Me.Update(CompanyName, Address, ContactNo, EmailID, Logo, TIN, STNo, CIN, Original_ID, Original_CompanyName, Original_Address, Original_ContactNo, Original_EmailID, Original_TIN, Original_STNo, Original_CIN, Original_ID)
16031         End Function
16032     End Class
16033     
16034     '''<summary>
16035     '''Represents the connection and commands used to retrieve and save data.
16036     '''</summary>
16037     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
16038      Global.System.ComponentModel.ToolboxItem(true), _
16039      Global.System.ComponentModel.DataObjectAttribute(true), _
16040      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
16041         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
16042      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16043     Partial Public Class Company_ContactsTableAdapter
16044         Inherits Global.System.ComponentModel.Component
16045         
16046         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
16047         
16048         Private _connection As Global.System.Data.SqlClient.SqlConnection
16049         
16050         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
16051         
16052         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
16053         
16054         Private _clearBeforeFill As Boolean
16055         
16056         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16057          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16058         Public Sub New()
16059             MyBase.New
16060             Me.ClearBeforeFill = true
16061         End Sub
16062         
16063         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16064          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16065         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
16066             Get
16067                 If (Me._adapter Is Nothing) Then
16068                     Me.InitAdapter
16069                 End If
16070                 Return Me._adapter
16071             End Get
16072         End Property
16073         
16074         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16075          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16076         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
16077             Get
16078                 If (Me._connection Is Nothing) Then
16079                     Me.InitConnection
16080                 End If
16081                 Return Me._connection
16082             End Get
16083             Set
16084                 Me._connection = value
16085                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
16086                     Me.Adapter.InsertCommand.Connection = value
16087                 End If
16088                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
16089                     Me.Adapter.DeleteCommand.Connection = value
16090                 End If
16091                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
16092                     Me.Adapter.UpdateCommand.Connection = value
16093                 End If
16094                 Dim i As Integer = 0
16095                 Do While (i < Me.CommandCollection.Length)
16096                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
16097                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
16098                     End If
16099                     i = (i + 1)
16100                 Loop
16101             End Set
16102         End Property
16103         
16104         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16105          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16106         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
16107             Get
16108                 Return Me._transaction
16109             End Get
16110             Set
16111                 Me._transaction = value
16112                 Dim i As Integer = 0
16113                 Do While (i < Me.CommandCollection.Length)
16114                     Me.CommandCollection(i).Transaction = Me._transaction
16115                     i = (i + 1)
16116                 Loop
16117                 If ((Not (Me.Adapter) Is Nothing) _
16118                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
16119                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
16120                 End If
16121                 If ((Not (Me.Adapter) Is Nothing) _
16122                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
16123                     Me.Adapter.InsertCommand.Transaction = Me._transaction
16124                 End If
16125                 If ((Not (Me.Adapter) Is Nothing) _
16126                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
16127                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
16128                 End If
16129             End Set
16130         End Property
16131         
16132         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16133          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16134         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
16135             Get
16136                 If (Me._commandCollection Is Nothing) Then
16137                     Me.InitCommandCollection
16138                 End If
16139                 Return Me._commandCollection
16140             End Get
16141         End Property
16142         
16143         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16144          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16145         Public Property ClearBeforeFill() As Boolean
16146             Get
16147                 Return Me._clearBeforeFill
16148             End Get
16149             Set
16150                 Me._clearBeforeFill = value
16151             End Set
16152         End Property
16153         
16154         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16155          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16156         Private Sub InitAdapter()
16157             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
16158             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
16159             tableMapping.SourceTable = "Table"
16160             tableMapping.DataSetTable = "Company_Contacts"
16161             tableMapping.ColumnMappings.Add("Id", "Id")
16162             tableMapping.ColumnMappings.Add("ContactPerson", "ContactPerson")
16163             tableMapping.ColumnMappings.Add("ContactNo", "ContactNo")
16164             Me._adapter.TableMappings.Add(tableMapping)
16165             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
16166             Me._adapter.DeleteCommand.Connection = Me.Connection
16167             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Company_Contacts] WHERE (([Id] = @Original_Id) AND ([ContactPe"& _
16168                 "rson] = @Original_ContactPerson) AND ([ContactNo] = @Original_ContactNo))"
16169             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
16170             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16171             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactPerson", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactPerson", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16172             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16173             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
16174             Me._adapter.InsertCommand.Connection = Me.Connection
16175             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Company_Contacts] ([ContactPerson], [ContactNo]) VALUES (@Cont"& _
16176                 "actPerson, @ContactNo);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, ContactPerson, ContactNo FROM Company_Contac"& _
16177                 "ts WHERE (Id = SCOPE_IDENTITY())"
16178             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
16179             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactPerson", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactPerson", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16180             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16181             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
16182             Me._adapter.UpdateCommand.Connection = Me.Connection
16183             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Company_Contacts] SET [ContactPerson] = @ContactPerson, [ContactNo]"& _
16184                 " = @ContactNo WHERE (([Id] = @Original_Id) AND ([ContactPerson] = @Original_Cont"& _
16185                 "actPerson) AND ([ContactNo] = @Original_ContactNo));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, ContactPerson, "& _
16186                 "ContactNo FROM Company_Contacts WHERE (Id = @Id)"
16187             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
16188             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactPerson", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactPerson", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16189             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16190             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16191             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactPerson", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactPerson", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16192             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16193             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16194         End Sub
16195         
16196         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16197          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16198         Private Sub InitConnection()
16199             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
16200             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
16201         End Sub
16202         
16203         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16204          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16205         Private Sub InitCommandCollection()
16206             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
16207             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
16208             Me._commandCollection(0).Connection = Me.Connection
16209             Me._commandCollection(0).CommandText = "SELECT Id, ContactPerson, ContactNo FROM dbo.Company_Contacts"
16210             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
16211         End Sub
16212         
16213         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16214          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16215          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16216          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
16217         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.Company_ContactsDataTable) As Integer
16218             Me.Adapter.SelectCommand = Me.CommandCollection(0)
16219             If (Me.ClearBeforeFill = true) Then
16220                 dataTable.Clear
16221             End If
16222             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
16223             Return returnValue
16224         End Function
16225         
16226         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16227          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16228          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16229          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
16230         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.Company_ContactsDataTable
16231             Me.Adapter.SelectCommand = Me.CommandCollection(0)
16232             Dim dataTable As SIS_DBDataSet2.Company_ContactsDataTable = New SIS_DBDataSet2.Company_ContactsDataTable()
16233             Me.Adapter.Fill(dataTable)
16234             Return dataTable
16235         End Function
16236         
16237         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16238          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16239          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16240         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.Company_ContactsDataTable) As Integer
16241             Return Me.Adapter.Update(dataTable)
16242         End Function
16243         
16244         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16245          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16246          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16247         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
16248             Return Me.Adapter.Update(dataSet, "Company_Contacts")
16249         End Function
16250         
16251         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16252          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16253          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16254         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
16255             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
16256         End Function
16257         
16258         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16259          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16260          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16261         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
16262             Return Me.Adapter.Update(dataRows)
16263         End Function
16264         
16265         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16266          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16267          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16268          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
16269         Public Overloads Overridable Function Delete(ByVal Original_Id As Integer, ByVal Original_ContactPerson As String, ByVal Original_ContactNo As String) As Integer
16270             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer)
16271             If (Original_ContactPerson Is Nothing) Then
16272                 Throw New Global.System.ArgumentNullException("Original_ContactPerson")
16273             Else
16274                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ContactPerson,String)
16275             End If
16276             If (Original_ContactNo Is Nothing) Then
16277                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
16278             Else
16279                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ContactNo,String)
16280             End If
16281             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
16282             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
16283                         <> Global.System.Data.ConnectionState.Open) Then
16284                 Me.Adapter.DeleteCommand.Connection.Open
16285             End If
16286             Try
16287                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
16288                 Return returnValue
16289             Finally
16290                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
16291                     Me.Adapter.DeleteCommand.Connection.Close
16292                 End If
16293             End Try
16294         End Function
16295         
16296         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16297          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16298          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16299          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
16300         Public Overloads Overridable Function Insert(ByVal ContactPerson As String, ByVal ContactNo As String) As Integer
16301             If (ContactPerson Is Nothing) Then
16302                 Throw New Global.System.ArgumentNullException("ContactPerson")
16303             Else
16304                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(ContactPerson,String)
16305             End If
16306             If (ContactNo Is Nothing) Then
16307                 Throw New Global.System.ArgumentNullException("ContactNo")
16308             Else
16309                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(ContactNo,String)
16310             End If
16311             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
16312             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
16313                         <> Global.System.Data.ConnectionState.Open) Then
16314                 Me.Adapter.InsertCommand.Connection.Open
16315             End If
16316             Try
16317                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
16318                 Return returnValue
16319             Finally
16320                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
16321                     Me.Adapter.InsertCommand.Connection.Close
16322                 End If
16323             End Try
16324         End Function
16325         
16326         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16327          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16328          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16329          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
16330         Public Overloads Overridable Function Update(ByVal ContactPerson As String, ByVal ContactNo As String, ByVal Original_Id As Integer, ByVal Original_ContactPerson As String, ByVal Original_ContactNo As String, ByVal Id As Integer) As Integer
16331             If (ContactPerson Is Nothing) Then
16332                 Throw New Global.System.ArgumentNullException("ContactPerson")
16333             Else
16334                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ContactPerson,String)
16335             End If
16336             If (ContactNo Is Nothing) Then
16337                 Throw New Global.System.ArgumentNullException("ContactNo")
16338             Else
16339                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ContactNo,String)
16340             End If
16341             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_Id,Integer)
16342             If (Original_ContactPerson Is Nothing) Then
16343                 Throw New Global.System.ArgumentNullException("Original_ContactPerson")
16344             Else
16345                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_ContactPerson,String)
16346             End If
16347             If (Original_ContactNo Is Nothing) Then
16348                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
16349             Else
16350                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_ContactNo,String)
16351             End If
16352             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Id,Integer)
16353             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
16354             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
16355                         <> Global.System.Data.ConnectionState.Open) Then
16356                 Me.Adapter.UpdateCommand.Connection.Open
16357             End If
16358             Try
16359                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
16360                 Return returnValue
16361             Finally
16362                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
16363                     Me.Adapter.UpdateCommand.Connection.Close
16364                 End If
16365             End Try
16366         End Function
16367         
16368         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16369          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16370          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16371          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
16372         Public Overloads Overridable Function Update(ByVal ContactPerson As String, ByVal ContactNo As String, ByVal Original_Id As Integer, ByVal Original_ContactPerson As String, ByVal Original_ContactNo As String) As Integer
16373             Return Me.Update(ContactPerson, ContactNo, Original_Id, Original_ContactPerson, Original_ContactNo, Original_Id)
16374         End Function
16375     End Class
16376     
16377     '''<summary>
16378     '''Represents the connection and commands used to retrieve and save data.
16379     '''</summary>
16380     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
16381      Global.System.ComponentModel.ToolboxItem(true), _
16382      Global.System.ComponentModel.DataObjectAttribute(true), _
16383      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
16384         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
16385      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16386     Partial Public Class CustomerTableAdapter
16387         Inherits Global.System.ComponentModel.Component
16388         
16389         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
16390         
16391         Private _connection As Global.System.Data.SqlClient.SqlConnection
16392         
16393         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
16394         
16395         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
16396         
16397         Private _clearBeforeFill As Boolean
16398         
16399         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16400          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16401         Public Sub New()
16402             MyBase.New
16403             Me.ClearBeforeFill = true
16404         End Sub
16405         
16406         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16407          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16408         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
16409             Get
16410                 If (Me._adapter Is Nothing) Then
16411                     Me.InitAdapter
16412                 End If
16413                 Return Me._adapter
16414             End Get
16415         End Property
16416         
16417         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16418          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16419         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
16420             Get
16421                 If (Me._connection Is Nothing) Then
16422                     Me.InitConnection
16423                 End If
16424                 Return Me._connection
16425             End Get
16426             Set
16427                 Me._connection = value
16428                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
16429                     Me.Adapter.InsertCommand.Connection = value
16430                 End If
16431                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
16432                     Me.Adapter.DeleteCommand.Connection = value
16433                 End If
16434                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
16435                     Me.Adapter.UpdateCommand.Connection = value
16436                 End If
16437                 Dim i As Integer = 0
16438                 Do While (i < Me.CommandCollection.Length)
16439                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
16440                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
16441                     End If
16442                     i = (i + 1)
16443                 Loop
16444             End Set
16445         End Property
16446         
16447         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16448          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16449         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
16450             Get
16451                 Return Me._transaction
16452             End Get
16453             Set
16454                 Me._transaction = value
16455                 Dim i As Integer = 0
16456                 Do While (i < Me.CommandCollection.Length)
16457                     Me.CommandCollection(i).Transaction = Me._transaction
16458                     i = (i + 1)
16459                 Loop
16460                 If ((Not (Me.Adapter) Is Nothing) _
16461                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
16462                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
16463                 End If
16464                 If ((Not (Me.Adapter) Is Nothing) _
16465                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
16466                     Me.Adapter.InsertCommand.Transaction = Me._transaction
16467                 End If
16468                 If ((Not (Me.Adapter) Is Nothing) _
16469                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
16470                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
16471                 End If
16472             End Set
16473         End Property
16474         
16475         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16476          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16477         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
16478             Get
16479                 If (Me._commandCollection Is Nothing) Then
16480                     Me.InitCommandCollection
16481                 End If
16482                 Return Me._commandCollection
16483             End Get
16484         End Property
16485         
16486         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16487          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16488         Public Property ClearBeforeFill() As Boolean
16489             Get
16490                 Return Me._clearBeforeFill
16491             End Get
16492             Set
16493                 Me._clearBeforeFill = value
16494             End Set
16495         End Property
16496         
16497         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16498          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16499         Private Sub InitAdapter()
16500             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
16501             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
16502             tableMapping.SourceTable = "Table"
16503             tableMapping.DataSetTable = "Customer"
16504             tableMapping.ColumnMappings.Add("ID", "ID")
16505             tableMapping.ColumnMappings.Add("CustomerID", "CustomerID")
16506             tableMapping.ColumnMappings.Add("Name", "Name")
16507             tableMapping.ColumnMappings.Add("Gender", "Gender")
16508             tableMapping.ColumnMappings.Add("Address", "Address")
16509             tableMapping.ColumnMappings.Add("City", "City")
16510             tableMapping.ColumnMappings.Add("State", "State")
16511             tableMapping.ColumnMappings.Add("ZipCode", "ZipCode")
16512             tableMapping.ColumnMappings.Add("ContactNo", "ContactNo")
16513             tableMapping.ColumnMappings.Add("EmailID", "EmailID")
16514             tableMapping.ColumnMappings.Add("Remarks", "Remarks")
16515             tableMapping.ColumnMappings.Add("Photo", "Photo")
16516             tableMapping.ColumnMappings.Add("CustomerType", "CustomerType")
16517             Me._adapter.TableMappings.Add(tableMapping)
16518             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
16519             Me._adapter.DeleteCommand.Connection = Me.Connection
16520             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Customer] WHERE (([ID] = @Original_ID) AND ((@IsNull_CustomerI"& _
16521                 "D = 1 AND [CustomerID] IS NULL) OR ([CustomerID] = @Original_CustomerID)) AND (("& _
16522                 "@IsNull_Name = 1 AND [Name] IS NULL) OR ([Name] = @Original_Name)) AND ((@IsNull"& _
16523                 "_Gender = 1 AND [Gender] IS NULL) OR ([Gender] = @Original_Gender)) AND ((@IsNul"& _
16524                 "l_Address = 1 AND [Address] IS NULL) OR ([Address] = @Original_Address)) AND ((@"& _
16525                 "IsNull_City = 1 AND [City] IS NULL) OR ([City] = @Original_City)) AND ((@IsNull_"& _
16526                 "State = 1 AND [State] IS NULL) OR ([State] = @Original_State)) AND ((@IsNull_Zip"& _
16527                 "Code = 1 AND [ZipCode] IS NULL) OR ([ZipCode] = @Original_ZipCode)) AND ((@IsNul"& _
16528                 "l_ContactNo = 1 AND [ContactNo] IS NULL) OR ([ContactNo] = @Original_ContactNo))"& _
16529                 " AND ((@IsNull_EmailID = 1 AND [EmailID] IS NULL) OR ([EmailID] = @Original_Emai"& _
16530                 "lID)) AND ((@IsNull_CustomerType = 1 AND [CustomerType] IS NULL) OR ([CustomerTy"& _
16531                 "pe] = @Original_CustomerType)))"
16532             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
16533             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16534             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16535             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16536             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16537             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16538             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Gender", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16539             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16540             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Address", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16541             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16542             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_City", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16543             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16544             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_State", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16545             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16546             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ZipCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16547             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16548             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ContactNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16549             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16550             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16551             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16552             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CustomerType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16553             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16554             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
16555             Me._adapter.InsertCommand.Connection = Me.Connection
16556             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Customer] ([ID], [CustomerID], [Name], [Gender], [Address], [C"& _
16557                 "ity], [State], [ZipCode], [ContactNo], [EmailID], [Remarks], [Photo], [CustomerT"& _
16558                 "ype]) VALUES (@ID, @CustomerID, @Name, @Gender, @Address, @City, @State, @ZipCod"& _
16559                 "e, @ContactNo, @EmailID, @Remarks, @Photo, @CustomerType);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, CustomerI"& _
16560                 "D, Name, Gender, Address, City, State, ZipCode, ContactNo, EmailID, Remarks, Pho"& _
16561                 "to, CustomerType FROM Customer WHERE (ID = @ID)"
16562             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
16563             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16564             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16565             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16566             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16567             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16568             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16569             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16570             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16571             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16572             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16573             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16574             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Photo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Photo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16575             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16576             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
16577             Me._adapter.UpdateCommand.Connection = Me.Connection
16578             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Customer] SET [ID] = @ID, [CustomerID] = @CustomerID, [Name] = @Nam"& _
16579                 "e, [Gender] = @Gender, [Address] = @Address, [City] = @City, [State] = @State, ["& _
16580                 "ZipCode] = @ZipCode, [ContactNo] = @ContactNo, [EmailID] = @EmailID, [Remarks] ="& _
16581                 " @Remarks, [Photo] = @Photo, [CustomerType] = @CustomerType WHERE (([ID] = @Orig"& _
16582                 "inal_ID) AND ((@IsNull_CustomerID = 1 AND [CustomerID] IS NULL) OR ([CustomerID]"& _
16583                 " = @Original_CustomerID)) AND ((@IsNull_Name = 1 AND [Name] IS NULL) OR ([Name] "& _
16584                 "= @Original_Name)) AND ((@IsNull_Gender = 1 AND [Gender] IS NULL) OR ([Gender] ="& _
16585                 " @Original_Gender)) AND ((@IsNull_Address = 1 AND [Address] IS NULL) OR ([Addres"& _
16586                 "s] = @Original_Address)) AND ((@IsNull_City = 1 AND [City] IS NULL) OR ([City] ="& _
16587                 " @Original_City)) AND ((@IsNull_State = 1 AND [State] IS NULL) OR ([State] = @Or"& _
16588                 "iginal_State)) AND ((@IsNull_ZipCode = 1 AND [ZipCode] IS NULL) OR ([ZipCode] = "& _
16589                 "@Original_ZipCode)) AND ((@IsNull_ContactNo = 1 AND [ContactNo] IS NULL) OR ([Co"& _
16590                 "ntactNo] = @Original_ContactNo)) AND ((@IsNull_EmailID = 1 AND [EmailID] IS NULL"& _
16591                 ") OR ([EmailID] = @Original_EmailID)) AND ((@IsNull_CustomerType = 1 AND [Custom"& _
16592                 "erType] IS NULL) OR ([CustomerType] = @Original_CustomerType)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, Cus"& _
16593                 "tomerID, Name, Gender, Address, City, State, ZipCode, ContactNo, EmailID, Remark"& _
16594                 "s, Photo, CustomerType FROM Customer WHERE (ID = @ID)"
16595             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
16596             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16597             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16598             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16599             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16600             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16601             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16602             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16603             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16604             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16605             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16606             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16607             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Photo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Photo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16608             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16609             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16610             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16611             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16612             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16613             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16614             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Gender", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16615             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16616             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Address", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16617             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16618             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_City", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16619             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16620             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_State", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16621             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16622             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ZipCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16623             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16624             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ContactNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16625             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16626             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16627             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16628             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CustomerType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16629             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16630         End Sub
16631         
16632         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16633          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16634         Private Sub InitConnection()
16635             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
16636             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
16637         End Sub
16638         
16639         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16640          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16641         Private Sub InitCommandCollection()
16642             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
16643             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
16644             Me._commandCollection(0).Connection = Me.Connection
16645             Me._commandCollection(0).CommandText = "SELECT ID, CustomerID, Name, Gender, Address, City, State, ZipCode, ContactNo, Em"& _
16646                 "ailID, Remarks, Photo, CustomerType FROM dbo.Customer"
16647             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
16648         End Sub
16649         
16650         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16651          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16652          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16653          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
16654         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.CustomerDataTable) As Integer
16655             Me.Adapter.SelectCommand = Me.CommandCollection(0)
16656             If (Me.ClearBeforeFill = true) Then
16657                 dataTable.Clear
16658             End If
16659             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
16660             Return returnValue
16661         End Function
16662         
16663         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16664          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16665          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16666          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
16667         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.CustomerDataTable
16668             Me.Adapter.SelectCommand = Me.CommandCollection(0)
16669             Dim dataTable As SIS_DBDataSet2.CustomerDataTable = New SIS_DBDataSet2.CustomerDataTable()
16670             Me.Adapter.Fill(dataTable)
16671             Return dataTable
16672         End Function
16673         
16674         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16675          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16676          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16677         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.CustomerDataTable) As Integer
16678             Return Me.Adapter.Update(dataTable)
16679         End Function
16680         
16681         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16682          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16683          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16684         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
16685             Return Me.Adapter.Update(dataSet, "Customer")
16686         End Function
16687         
16688         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16689          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16690          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16691         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
16692             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
16693         End Function
16694         
16695         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16696          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16697          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16698         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
16699             Return Me.Adapter.Update(dataRows)
16700         End Function
16701         
16702         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16703          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16704          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16705          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
16706         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer, ByVal Original_CustomerID As String, ByVal Original_Name As String, ByVal Original_Gender As String, ByVal Original_Address As String, ByVal Original_City As String, ByVal Original_State As String, ByVal Original_ZipCode As String, ByVal Original_ContactNo As String, ByVal Original_EmailID As String, ByVal Original_CustomerType As String) As Integer
16707             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
16708             If (Original_CustomerID Is Nothing) Then
16709                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
16710                 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
16711             Else
16712                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
16713                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CustomerID,String)
16714             End If
16715             If (Original_Name Is Nothing) Then
16716                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
16717                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
16718             Else
16719                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
16720                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Name,String)
16721             End If
16722             If (Original_Gender Is Nothing) Then
16723                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
16724                 Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
16725             Else
16726                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
16727                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Gender,String)
16728             End If
16729             If (Original_Address Is Nothing) Then
16730                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
16731                 Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
16732             Else
16733                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
16734                 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Address,String)
16735             End If
16736             If (Original_City Is Nothing) Then
16737                 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
16738                 Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
16739             Else
16740                 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
16741                 Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_City,String)
16742             End If
16743             If (Original_State Is Nothing) Then
16744                 Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
16745                 Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
16746             Else
16747                 Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
16748                 Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_State,String)
16749             End If
16750             If (Original_ZipCode Is Nothing) Then
16751                 Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object)
16752                 Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value
16753             Else
16754                 Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object)
16755                 Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_ZipCode,String)
16756             End If
16757             If (Original_ContactNo Is Nothing) Then
16758                 Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object)
16759                 Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value
16760             Else
16761                 Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object)
16762                 Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_ContactNo,String)
16763             End If
16764             If (Original_EmailID Is Nothing) Then
16765                 Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object)
16766                 Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value
16767             Else
16768                 Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object)
16769                 Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_EmailID,String)
16770             End If
16771             If (Original_CustomerType Is Nothing) Then
16772                 Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object)
16773                 Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value
16774             Else
16775                 Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object)
16776                 Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_CustomerType,String)
16777             End If
16778             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
16779             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
16780                         <> Global.System.Data.ConnectionState.Open) Then
16781                 Me.Adapter.DeleteCommand.Connection.Open
16782             End If
16783             Try
16784                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
16785                 Return returnValue
16786             Finally
16787                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
16788                     Me.Adapter.DeleteCommand.Connection.Close
16789                 End If
16790             End Try
16791         End Function
16792         
16793         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16794          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16795          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16796          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
16797         Public Overloads Overridable Function Insert(ByVal ID As Integer, ByVal CustomerID As String, ByVal Name As String, ByVal Gender As String, ByVal Address As String, ByVal City As String, ByVal State As String, ByVal ZipCode As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal Remarks As String, ByVal Photo() As Byte, ByVal CustomerType As String) As Integer
16798             Me.Adapter.InsertCommand.Parameters(0).Value = CType(ID,Integer)
16799             If (CustomerID Is Nothing) Then
16800                 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
16801             Else
16802                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(CustomerID,String)
16803             End If
16804             If (Name Is Nothing) Then
16805                 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
16806             Else
16807                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Name,String)
16808             End If
16809             If (Gender Is Nothing) Then
16810                 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
16811             Else
16812                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Gender,String)
16813             End If
16814             If (Address Is Nothing) Then
16815                 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
16816             Else
16817                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Address,String)
16818             End If
16819             If (City Is Nothing) Then
16820                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
16821             Else
16822                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(City,String)
16823             End If
16824             If (State Is Nothing) Then
16825                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
16826             Else
16827                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(State,String)
16828             End If
16829             If (ZipCode Is Nothing) Then
16830                 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
16831             Else
16832                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(ZipCode,String)
16833             End If
16834             If (ContactNo Is Nothing) Then
16835                 Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
16836             Else
16837                 Me.Adapter.InsertCommand.Parameters(8).Value = CType(ContactNo,String)
16838             End If
16839             If (EmailID Is Nothing) Then
16840                 Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
16841             Else
16842                 Me.Adapter.InsertCommand.Parameters(9).Value = CType(EmailID,String)
16843             End If
16844             If (Remarks Is Nothing) Then
16845                 Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value
16846             Else
16847                 Me.Adapter.InsertCommand.Parameters(10).Value = CType(Remarks,String)
16848             End If
16849             If (Photo Is Nothing) Then
16850                 Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value
16851             Else
16852                 Me.Adapter.InsertCommand.Parameters(11).Value = CType(Photo,Byte())
16853             End If
16854             If (CustomerType Is Nothing) Then
16855                 Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value
16856             Else
16857                 Me.Adapter.InsertCommand.Parameters(12).Value = CType(CustomerType,String)
16858             End If
16859             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
16860             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
16861                         <> Global.System.Data.ConnectionState.Open) Then
16862                 Me.Adapter.InsertCommand.Connection.Open
16863             End If
16864             Try
16865                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
16866                 Return returnValue
16867             Finally
16868                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
16869                     Me.Adapter.InsertCommand.Connection.Close
16870                 End If
16871             End Try
16872         End Function
16873         
16874         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16875          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16876          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16877          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
16878         Public Overloads Overridable Function Update( _
16879                     ByVal ID As Integer, _
16880                     ByVal CustomerID As String, _
16881                     ByVal Name As String, _
16882                     ByVal Gender As String, _
16883                     ByVal Address As String, _
16884                     ByVal City As String, _
16885                     ByVal State As String, _
16886                     ByVal ZipCode As String, _
16887                     ByVal ContactNo As String, _
16888                     ByVal EmailID As String, _
16889                     ByVal Remarks As String, _
16890                     ByVal Photo() As Byte, _
16891                     ByVal CustomerType As String, _
16892                     ByVal Original_ID As Integer, _
16893                     ByVal Original_CustomerID As String, _
16894                     ByVal Original_Name As String, _
16895                     ByVal Original_Gender As String, _
16896                     ByVal Original_Address As String, _
16897                     ByVal Original_City As String, _
16898                     ByVal Original_State As String, _
16899                     ByVal Original_ZipCode As String, _
16900                     ByVal Original_ContactNo As String, _
16901                     ByVal Original_EmailID As String, _
16902                     ByVal Original_CustomerType As String) As Integer
16903             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ID,Integer)
16904             If (CustomerID Is Nothing) Then
16905                 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
16906             Else
16907                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CustomerID,String)
16908             End If
16909             If (Name Is Nothing) Then
16910                 Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
16911             Else
16912                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Name,String)
16913             End If
16914             If (Gender Is Nothing) Then
16915                 Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
16916             Else
16917                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Gender,String)
16918             End If
16919             If (Address Is Nothing) Then
16920                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
16921             Else
16922                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Address,String)
16923             End If
16924             If (City Is Nothing) Then
16925                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
16926             Else
16927                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(City,String)
16928             End If
16929             If (State Is Nothing) Then
16930                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
16931             Else
16932                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(State,String)
16933             End If
16934             If (ZipCode Is Nothing) Then
16935                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
16936             Else
16937                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ZipCode,String)
16938             End If
16939             If (ContactNo Is Nothing) Then
16940                 Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
16941             Else
16942                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ContactNo,String)
16943             End If
16944             If (EmailID Is Nothing) Then
16945                 Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
16946             Else
16947                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(EmailID,String)
16948             End If
16949             If (Remarks Is Nothing) Then
16950                 Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
16951             Else
16952                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Remarks,String)
16953             End If
16954             If (Photo Is Nothing) Then
16955                 Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
16956             Else
16957                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Photo,Byte())
16958             End If
16959             If (CustomerType Is Nothing) Then
16960                 Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
16961             Else
16962                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(CustomerType,String)
16963             End If
16964             Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ID,Integer)
16965             If (Original_CustomerID Is Nothing) Then
16966                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
16967                 Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
16968             Else
16969                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
16970                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CustomerID,String)
16971             End If
16972             If (Original_Name Is Nothing) Then
16973                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object)
16974                 Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
16975             Else
16976                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object)
16977                 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Name,String)
16978             End If
16979             If (Original_Gender Is Nothing) Then
16980                 Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object)
16981                 Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value
16982             Else
16983                 Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object)
16984                 Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_Gender,String)
16985             End If
16986             If (Original_Address Is Nothing) Then
16987                 Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object)
16988                 Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value
16989             Else
16990                 Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object)
16991                 Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_Address,String)
16992             End If
16993             If (Original_City Is Nothing) Then
16994                 Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object)
16995                 Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
16996             Else
16997                 Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object)
16998                 Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_City,String)
16999             End If
17000             If (Original_State Is Nothing) Then
17001                 Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object)
17002                 Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value
17003             Else
17004                 Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object)
17005                 Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_State,String)
17006             End If
17007             If (Original_ZipCode Is Nothing) Then
17008                 Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object)
17009                 Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value
17010             Else
17011                 Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object)
17012                 Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_ZipCode,String)
17013             End If
17014             If (Original_ContactNo Is Nothing) Then
17015                 Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object)
17016                 Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value
17017             Else
17018                 Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object)
17019                 Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_ContactNo,String)
17020             End If
17021             If (Original_EmailID Is Nothing) Then
17022                 Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object)
17023                 Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value
17024             Else
17025                 Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object)
17026                 Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_EmailID,String)
17027             End If
17028             If (Original_CustomerType Is Nothing) Then
17029                 Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object)
17030                 Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value
17031             Else
17032                 Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object)
17033                 Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_CustomerType,String)
17034             End If
17035             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
17036             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
17037                         <> Global.System.Data.ConnectionState.Open) Then
17038                 Me.Adapter.UpdateCommand.Connection.Open
17039             End If
17040             Try
17041                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
17042                 Return returnValue
17043             Finally
17044                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
17045                     Me.Adapter.UpdateCommand.Connection.Close
17046                 End If
17047             End Try
17048         End Function
17049         
17050         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17051          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17052          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17053          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
17054         Public Overloads Overridable Function Update( _
17055                     ByVal CustomerID As String, _
17056                     ByVal Name As String, _
17057                     ByVal Gender As String, _
17058                     ByVal Address As String, _
17059                     ByVal City As String, _
17060                     ByVal State As String, _
17061                     ByVal ZipCode As String, _
17062                     ByVal ContactNo As String, _
17063                     ByVal EmailID As String, _
17064                     ByVal Remarks As String, _
17065                     ByVal Photo() As Byte, _
17066                     ByVal CustomerType As String, _
17067                     ByVal Original_ID As Integer, _
17068                     ByVal Original_CustomerID As String, _
17069                     ByVal Original_Name As String, _
17070                     ByVal Original_Gender As String, _
17071                     ByVal Original_Address As String, _
17072                     ByVal Original_City As String, _
17073                     ByVal Original_State As String, _
17074                     ByVal Original_ZipCode As String, _
17075                     ByVal Original_ContactNo As String, _
17076                     ByVal Original_EmailID As String, _
17077                     ByVal Original_CustomerType As String) As Integer
17078             Return Me.Update(Original_ID, CustomerID, Name, Gender, Address, City, State, ZipCode, ContactNo, EmailID, Remarks, Photo, CustomerType, Original_ID, Original_CustomerID, Original_Name, Original_Gender, Original_Address, Original_City, Original_State, Original_ZipCode, Original_ContactNo, Original_EmailID, Original_CustomerType)
17079         End Function
17080     End Class
17081     
17082     '''<summary>
17083     '''Represents the connection and commands used to retrieve and save data.
17084     '''</summary>
17085     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
17086      Global.System.ComponentModel.ToolboxItem(true), _
17087      Global.System.ComponentModel.DataObjectAttribute(true), _
17088      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
17089         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
17090      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17091     Partial Public Class Invoice_PaymentTableAdapter
17092         Inherits Global.System.ComponentModel.Component
17093         
17094         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
17095         
17096         Private _connection As Global.System.Data.SqlClient.SqlConnection
17097         
17098         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
17099         
17100         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
17101         
17102         Private _clearBeforeFill As Boolean
17103         
17104         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17105          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17106         Public Sub New()
17107             MyBase.New
17108             Me.ClearBeforeFill = true
17109         End Sub
17110         
17111         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17112          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17113         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
17114             Get
17115                 If (Me._adapter Is Nothing) Then
17116                     Me.InitAdapter
17117                 End If
17118                 Return Me._adapter
17119             End Get
17120         End Property
17121         
17122         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17123          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17124         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
17125             Get
17126                 If (Me._connection Is Nothing) Then
17127                     Me.InitConnection
17128                 End If
17129                 Return Me._connection
17130             End Get
17131             Set
17132                 Me._connection = value
17133                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
17134                     Me.Adapter.InsertCommand.Connection = value
17135                 End If
17136                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
17137                     Me.Adapter.DeleteCommand.Connection = value
17138                 End If
17139                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
17140                     Me.Adapter.UpdateCommand.Connection = value
17141                 End If
17142                 Dim i As Integer = 0
17143                 Do While (i < Me.CommandCollection.Length)
17144                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
17145                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
17146                     End If
17147                     i = (i + 1)
17148                 Loop
17149             End Set
17150         End Property
17151         
17152         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17153          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17154         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
17155             Get
17156                 Return Me._transaction
17157             End Get
17158             Set
17159                 Me._transaction = value
17160                 Dim i As Integer = 0
17161                 Do While (i < Me.CommandCollection.Length)
17162                     Me.CommandCollection(i).Transaction = Me._transaction
17163                     i = (i + 1)
17164                 Loop
17165                 If ((Not (Me.Adapter) Is Nothing) _
17166                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
17167                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
17168                 End If
17169                 If ((Not (Me.Adapter) Is Nothing) _
17170                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
17171                     Me.Adapter.InsertCommand.Transaction = Me._transaction
17172                 End If
17173                 If ((Not (Me.Adapter) Is Nothing) _
17174                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
17175                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
17176                 End If
17177             End Set
17178         End Property
17179         
17180         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17181          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17182         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
17183             Get
17184                 If (Me._commandCollection Is Nothing) Then
17185                     Me.InitCommandCollection
17186                 End If
17187                 Return Me._commandCollection
17188             End Get
17189         End Property
17190         
17191         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17192          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17193         Public Property ClearBeforeFill() As Boolean
17194             Get
17195                 Return Me._clearBeforeFill
17196             End Get
17197             Set
17198                 Me._clearBeforeFill = value
17199             End Set
17200         End Property
17201         
17202         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17203          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17204         Private Sub InitAdapter()
17205             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
17206             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
17207             tableMapping.SourceTable = "Table"
17208             tableMapping.DataSetTable = "Invoice_Payment"
17209             tableMapping.ColumnMappings.Add("IP_ID", "IP_ID")
17210             tableMapping.ColumnMappings.Add("InvoiceID", "InvoiceID")
17211             tableMapping.ColumnMappings.Add("PaymentDate", "PaymentDate")
17212             tableMapping.ColumnMappings.Add("TotalPaid", "TotalPaid")
17213             tableMapping.ColumnMappings.Add("PaymentMode", "PaymentMode")
17214             Me._adapter.TableMappings.Add(tableMapping)
17215             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
17216             Me._adapter.DeleteCommand.Connection = Me.Connection
17217             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Invoice_Payment] WHERE (([IP_ID] = @Original_IP_ID) AND ([Invo"& _
17218                 "iceID] = @Original_InvoiceID) AND ([PaymentDate] = @Original_PaymentDate) AND (["& _
17219                 "TotalPaid] = @Original_TotalPaid) AND ([PaymentMode] = @Original_PaymentMode))"
17220             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
17221             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17222             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17223             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17224             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17225             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentMode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentMode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17226             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
17227             Me._adapter.InsertCommand.Connection = Me.Connection
17228             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Invoice_Payment] ([InvoiceID], [PaymentDate], [TotalPaid], [Pa"& _
17229                 "ymentMode]) VALUES (@InvoiceID, @PaymentDate, @TotalPaid, @PaymentMode);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _
17230                 " IP_ID, InvoiceID, PaymentDate, TotalPaid, PaymentMode FROM Invoice_Payment WHER"& _
17231                 "E (IP_ID = SCOPE_IDENTITY())"
17232             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
17233             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17234             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17235             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17236             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentMode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentMode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17237             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
17238             Me._adapter.UpdateCommand.Connection = Me.Connection
17239             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Invoice_Payment] SET [InvoiceID] = @InvoiceID, [PaymentDate] = @Pay"& _
17240                 "mentDate, [TotalPaid] = @TotalPaid, [PaymentMode] = @PaymentMode WHERE (([IP_ID]"& _
17241                 " = @Original_IP_ID) AND ([InvoiceID] = @Original_InvoiceID) AND ([PaymentDate] ="& _
17242                 " @Original_PaymentDate) AND ([TotalPaid] = @Original_TotalPaid) AND ([PaymentMod"& _
17243                 "e] = @Original_PaymentMode));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT IP_ID, InvoiceID, PaymentDate, TotalPaid, "& _
17244                 "PaymentMode FROM Invoice_Payment WHERE (IP_ID = @IP_ID)"
17245             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
17246             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17247             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17248             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17249             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentMode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentMode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17250             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17251             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17252             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17253             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17254             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentMode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentMode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17255             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17256         End Sub
17257         
17258         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17259          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17260         Private Sub InitConnection()
17261             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
17262             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
17263         End Sub
17264         
17265         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17266          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17267         Private Sub InitCommandCollection()
17268             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
17269             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
17270             Me._commandCollection(0).Connection = Me.Connection
17271             Me._commandCollection(0).CommandText = "SELECT IP_ID, InvoiceID, PaymentDate, TotalPaid, PaymentMode FROM dbo.Invoice_Pay"& _
17272                 "ment"
17273             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
17274         End Sub
17275         
17276         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17277          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17278          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17279          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
17280         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.Invoice_PaymentDataTable) As Integer
17281             Me.Adapter.SelectCommand = Me.CommandCollection(0)
17282             If (Me.ClearBeforeFill = true) Then
17283                 dataTable.Clear
17284             End If
17285             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
17286             Return returnValue
17287         End Function
17288         
17289         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17290          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17291          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17292          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
17293         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.Invoice_PaymentDataTable
17294             Me.Adapter.SelectCommand = Me.CommandCollection(0)
17295             Dim dataTable As SIS_DBDataSet2.Invoice_PaymentDataTable = New SIS_DBDataSet2.Invoice_PaymentDataTable()
17296             Me.Adapter.Fill(dataTable)
17297             Return dataTable
17298         End Function
17299         
17300         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17301          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17302          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17303         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.Invoice_PaymentDataTable) As Integer
17304             Return Me.Adapter.Update(dataTable)
17305         End Function
17306         
17307         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17308          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17309          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17310         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
17311             Return Me.Adapter.Update(dataSet, "Invoice_Payment")
17312         End Function
17313         
17314         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17315          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17316          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17317         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
17318             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
17319         End Function
17320         
17321         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17322          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17323          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17324         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
17325             Return Me.Adapter.Update(dataRows)
17326         End Function
17327         
17328         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17329          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17330          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17331          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
17332         Public Overloads Overridable Function Delete(ByVal Original_IP_ID As Integer, ByVal Original_InvoiceID As Integer, ByVal Original_PaymentDate As Date, ByVal Original_TotalPaid As Decimal, ByVal Original_PaymentMode As String) As Integer
17333             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_IP_ID,Integer)
17334             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_InvoiceID,Integer)
17335             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_PaymentDate,Date)
17336             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_TotalPaid,Decimal)
17337             If (Original_PaymentMode Is Nothing) Then
17338                 Throw New Global.System.ArgumentNullException("Original_PaymentMode")
17339             Else
17340                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_PaymentMode,String)
17341             End If
17342             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
17343             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
17344                         <> Global.System.Data.ConnectionState.Open) Then
17345                 Me.Adapter.DeleteCommand.Connection.Open
17346             End If
17347             Try
17348                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
17349                 Return returnValue
17350             Finally
17351                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
17352                     Me.Adapter.DeleteCommand.Connection.Close
17353                 End If
17354             End Try
17355         End Function
17356         
17357         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17358          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17359          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17360          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
17361         Public Overloads Overridable Function Insert(ByVal InvoiceID As Integer, ByVal PaymentDate As Date, ByVal TotalPaid As Decimal, ByVal PaymentMode As String) As Integer
17362             Me.Adapter.InsertCommand.Parameters(0).Value = CType(InvoiceID,Integer)
17363             Me.Adapter.InsertCommand.Parameters(1).Value = CType(PaymentDate,Date)
17364             Me.Adapter.InsertCommand.Parameters(2).Value = CType(TotalPaid,Decimal)
17365             If (PaymentMode Is Nothing) Then
17366                 Throw New Global.System.ArgumentNullException("PaymentMode")
17367             Else
17368                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(PaymentMode,String)
17369             End If
17370             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
17371             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
17372                         <> Global.System.Data.ConnectionState.Open) Then
17373                 Me.Adapter.InsertCommand.Connection.Open
17374             End If
17375             Try
17376                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
17377                 Return returnValue
17378             Finally
17379                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
17380                     Me.Adapter.InsertCommand.Connection.Close
17381                 End If
17382             End Try
17383         End Function
17384         
17385         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17386          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17387          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17388          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
17389         Public Overloads Overridable Function Update(ByVal InvoiceID As Integer, ByVal PaymentDate As Date, ByVal TotalPaid As Decimal, ByVal PaymentMode As String, ByVal Original_IP_ID As Integer, ByVal Original_InvoiceID As Integer, ByVal Original_PaymentDate As Date, ByVal Original_TotalPaid As Decimal, ByVal Original_PaymentMode As String, ByVal IP_ID As Integer) As Integer
17390             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(InvoiceID,Integer)
17391             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PaymentDate,Date)
17392             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(TotalPaid,Decimal)
17393             If (PaymentMode Is Nothing) Then
17394                 Throw New Global.System.ArgumentNullException("PaymentMode")
17395             Else
17396                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(PaymentMode,String)
17397             End If
17398             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_IP_ID,Integer)
17399             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_InvoiceID,Integer)
17400             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_PaymentDate,Date)
17401             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_TotalPaid,Decimal)
17402             If (Original_PaymentMode Is Nothing) Then
17403                 Throw New Global.System.ArgumentNullException("Original_PaymentMode")
17404             Else
17405                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_PaymentMode,String)
17406             End If
17407             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(IP_ID,Integer)
17408             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
17409             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
17410                         <> Global.System.Data.ConnectionState.Open) Then
17411                 Me.Adapter.UpdateCommand.Connection.Open
17412             End If
17413             Try
17414                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
17415                 Return returnValue
17416             Finally
17417                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
17418                     Me.Adapter.UpdateCommand.Connection.Close
17419                 End If
17420             End Try
17421         End Function
17422         
17423         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17424          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17425          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17426          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
17427         Public Overloads Overridable Function Update(ByVal InvoiceID As Integer, ByVal PaymentDate As Date, ByVal TotalPaid As Decimal, ByVal PaymentMode As String, ByVal Original_IP_ID As Integer, ByVal Original_InvoiceID As Integer, ByVal Original_PaymentDate As Date, ByVal Original_TotalPaid As Decimal, ByVal Original_PaymentMode As String) As Integer
17428             Return Me.Update(InvoiceID, PaymentDate, TotalPaid, PaymentMode, Original_IP_ID, Original_InvoiceID, Original_PaymentDate, Original_TotalPaid, Original_PaymentMode, Original_IP_ID)
17429         End Function
17430     End Class
17431     
17432     '''<summary>
17433     '''Represents the connection and commands used to retrieve and save data.
17434     '''</summary>
17435     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
17436      Global.System.ComponentModel.ToolboxItem(true), _
17437      Global.System.ComponentModel.DataObjectAttribute(true), _
17438      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
17439         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
17440      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17441     Partial Public Class Invoice_ProductTableAdapter
17442         Inherits Global.System.ComponentModel.Component
17443         
17444         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
17445         
17446         Private _connection As Global.System.Data.SqlClient.SqlConnection
17447         
17448         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
17449         
17450         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
17451         
17452         Private _clearBeforeFill As Boolean
17453         
17454         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17455          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17456         Public Sub New()
17457             MyBase.New
17458             Me.ClearBeforeFill = true
17459         End Sub
17460         
17461         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17462          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17463         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
17464             Get
17465                 If (Me._adapter Is Nothing) Then
17466                     Me.InitAdapter
17467                 End If
17468                 Return Me._adapter
17469             End Get
17470         End Property
17471         
17472         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17473          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17474         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
17475             Get
17476                 If (Me._connection Is Nothing) Then
17477                     Me.InitConnection
17478                 End If
17479                 Return Me._connection
17480             End Get
17481             Set
17482                 Me._connection = value
17483                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
17484                     Me.Adapter.InsertCommand.Connection = value
17485                 End If
17486                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
17487                     Me.Adapter.DeleteCommand.Connection = value
17488                 End If
17489                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
17490                     Me.Adapter.UpdateCommand.Connection = value
17491                 End If
17492                 Dim i As Integer = 0
17493                 Do While (i < Me.CommandCollection.Length)
17494                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
17495                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
17496                     End If
17497                     i = (i + 1)
17498                 Loop
17499             End Set
17500         End Property
17501         
17502         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17503          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17504         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
17505             Get
17506                 Return Me._transaction
17507             End Get
17508             Set
17509                 Me._transaction = value
17510                 Dim i As Integer = 0
17511                 Do While (i < Me.CommandCollection.Length)
17512                     Me.CommandCollection(i).Transaction = Me._transaction
17513                     i = (i + 1)
17514                 Loop
17515                 If ((Not (Me.Adapter) Is Nothing) _
17516                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
17517                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
17518                 End If
17519                 If ((Not (Me.Adapter) Is Nothing) _
17520                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
17521                     Me.Adapter.InsertCommand.Transaction = Me._transaction
17522                 End If
17523                 If ((Not (Me.Adapter) Is Nothing) _
17524                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
17525                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
17526                 End If
17527             End Set
17528         End Property
17529         
17530         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17531          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17532         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
17533             Get
17534                 If (Me._commandCollection Is Nothing) Then
17535                     Me.InitCommandCollection
17536                 End If
17537                 Return Me._commandCollection
17538             End Get
17539         End Property
17540         
17541         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17542          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17543         Public Property ClearBeforeFill() As Boolean
17544             Get
17545                 Return Me._clearBeforeFill
17546             End Get
17547             Set
17548                 Me._clearBeforeFill = value
17549             End Set
17550         End Property
17551         
17552         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17553          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17554         Private Sub InitAdapter()
17555             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
17556             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
17557             tableMapping.SourceTable = "Table"
17558             tableMapping.DataSetTable = "Invoice_Product"
17559             tableMapping.ColumnMappings.Add("IPo_ID", "IPo_ID")
17560             tableMapping.ColumnMappings.Add("InvoiceID", "InvoiceID")
17561             tableMapping.ColumnMappings.Add("ProductID", "ProductID")
17562             tableMapping.ColumnMappings.Add("CostPrice", "CostPrice")
17563             tableMapping.ColumnMappings.Add("SellingPrice", "SellingPrice")
17564             tableMapping.ColumnMappings.Add("Margin", "Margin")
17565             tableMapping.ColumnMappings.Add("Qty", "Qty")
17566             tableMapping.ColumnMappings.Add("Amount", "Amount")
17567             tableMapping.ColumnMappings.Add("DiscountPer", "DiscountPer")
17568             tableMapping.ColumnMappings.Add("Discount", "Discount")
17569             tableMapping.ColumnMappings.Add("VATPer", "VATPer")
17570             tableMapping.ColumnMappings.Add("VAT", "VAT")
17571             tableMapping.ColumnMappings.Add("TotalAmount", "TotalAmount")
17572             Me._adapter.TableMappings.Add(tableMapping)
17573             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
17574             Me._adapter.DeleteCommand.Connection = Me.Connection
17575             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Invoice_Product] WHERE (([IPo_ID] = @Original_IPo_ID) AND ([In"& _
17576                 "voiceID] = @Original_InvoiceID) AND ([ProductID] = @Original_ProductID) AND ([Co"& _
17577                 "stPrice] = @Original_CostPrice) AND ([SellingPrice] = @Original_SellingPrice) AN"& _
17578                 "D ([Margin] = @Original_Margin) AND ([Qty] = @Original_Qty) AND ([Amount] = @Ori"& _
17579                 "ginal_Amount) AND ([DiscountPer] = @Original_DiscountPer) AND ([Discount] = @Ori"& _
17580                 "ginal_Discount) AND ([VATPer] = @Original_VATPer) AND ([VAT] = @Original_VAT) AN"& _
17581                 "D ([TotalAmount] = @Original_TotalAmount))"
17582             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
17583             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IPo_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IPo_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17584             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17585             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17586             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17587             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17588             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Margin", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Margin", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17589             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17590             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17591             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17592             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17593             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17594             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17595             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17596             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
17597             Me._adapter.InsertCommand.Connection = Me.Connection
17598             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Invoice_Product] ([InvoiceID], [ProductID], [CostPrice], [Sell"& _
17599                 "ingPrice], [Margin], [Qty], [Amount], [DiscountPer], [Discount], [VATPer], [VAT]"& _
17600                 ", [TotalAmount]) VALUES (@InvoiceID, @ProductID, @CostPrice, @SellingPrice, @Mar"& _
17601                 "gin, @Qty, @Amount, @DiscountPer, @Discount, @VATPer, @VAT, @TotalAmount);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELE"& _
17602                 "CT IPo_ID, InvoiceID, ProductID, CostPrice, SellingPrice, Margin, Qty, Amount, D"& _
17603                 "iscountPer, Discount, VATPer, VAT, TotalAmount FROM Invoice_Product WHERE (IPo_I"& _
17604                 "D = SCOPE_IDENTITY())"
17605             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
17606             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17607             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17608             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17609             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17610             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Margin", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Margin", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17611             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17612             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17613             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17614             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17615             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17616             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17617             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17618             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
17619             Me._adapter.UpdateCommand.Connection = Me.Connection
17620             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Invoice_Product] SET [InvoiceID] = @InvoiceID, [ProductID] = @Produ"& _
17621                 "ctID, [CostPrice] = @CostPrice, [SellingPrice] = @SellingPrice, [Margin] = @Marg"& _
17622                 "in, [Qty] = @Qty, [Amount] = @Amount, [DiscountPer] = @DiscountPer, [Discount] ="& _
17623                 " @Discount, [VATPer] = @VATPer, [VAT] = @VAT, [TotalAmount] = @TotalAmount WHERE"& _
17624                 " (([IPo_ID] = @Original_IPo_ID) AND ([InvoiceID] = @Original_InvoiceID) AND ([Pr"& _
17625                 "oductID] = @Original_ProductID) AND ([CostPrice] = @Original_CostPrice) AND ([Se"& _
17626                 "llingPrice] = @Original_SellingPrice) AND ([Margin] = @Original_Margin) AND ([Qt"& _
17627                 "y] = @Original_Qty) AND ([Amount] = @Original_Amount) AND ([DiscountPer] = @Orig"& _
17628                 "inal_DiscountPer) AND ([Discount] = @Original_Discount) AND ([VATPer] = @Origina"& _
17629                 "l_VATPer) AND ([VAT] = @Original_VAT) AND ([TotalAmount] = @Original_TotalAmount"& _
17630                 "));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT IPo_ID, InvoiceID, ProductID, CostPrice, SellingPrice, Margin, Qty, "& _
17631                 "Amount, DiscountPer, Discount, VATPer, VAT, TotalAmount FROM Invoice_Product WHE"& _
17632                 "RE (IPo_ID = @IPo_ID)"
17633             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
17634             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17635             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17636             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17637             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17638             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Margin", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Margin", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17639             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17640             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17641             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17642             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17643             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17644             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17645             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17646             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IPo_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IPo_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17647             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17648             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17649             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17650             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17651             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Margin", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Margin", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17652             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17653             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17654             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17655             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17656             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17657             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17658             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17659             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IPo_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IPo_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17660         End Sub
17661         
17662         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17663          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17664         Private Sub InitConnection()
17665             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
17666             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
17667         End Sub
17668         
17669         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17670          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17671         Private Sub InitCommandCollection()
17672             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
17673             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
17674             Me._commandCollection(0).Connection = Me.Connection
17675             Me._commandCollection(0).CommandText = "SELECT IPo_ID, InvoiceID, ProductID, CostPrice, SellingPrice, Margin, Qty, Amount"& _
17676                 ", DiscountPer, Discount, VATPer, VAT, TotalAmount FROM dbo.Invoice_Product"
17677             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
17678         End Sub
17679         
17680         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17681          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17682          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17683          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
17684         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.Invoice_ProductDataTable) As Integer
17685             Me.Adapter.SelectCommand = Me.CommandCollection(0)
17686             If (Me.ClearBeforeFill = true) Then
17687                 dataTable.Clear
17688             End If
17689             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
17690             Return returnValue
17691         End Function
17692         
17693         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17694          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17695          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17696          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
17697         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.Invoice_ProductDataTable
17698             Me.Adapter.SelectCommand = Me.CommandCollection(0)
17699             Dim dataTable As SIS_DBDataSet2.Invoice_ProductDataTable = New SIS_DBDataSet2.Invoice_ProductDataTable()
17700             Me.Adapter.Fill(dataTable)
17701             Return dataTable
17702         End Function
17703         
17704         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17705          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17706          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17707         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.Invoice_ProductDataTable) As Integer
17708             Return Me.Adapter.Update(dataTable)
17709         End Function
17710         
17711         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17712          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17713          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17714         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
17715             Return Me.Adapter.Update(dataSet, "Invoice_Product")
17716         End Function
17717         
17718         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17719          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17720          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17721         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
17722             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
17723         End Function
17724         
17725         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17726          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17727          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17728         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
17729             Return Me.Adapter.Update(dataRows)
17730         End Function
17731         
17732         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17733          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17734          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17735          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
17736         Public Overloads Overridable Function Delete(ByVal Original_IPo_ID As Integer, ByVal Original_InvoiceID As Integer, ByVal Original_ProductID As Integer, ByVal Original_CostPrice As Decimal, ByVal Original_SellingPrice As Decimal, ByVal Original_Margin As Decimal, ByVal Original_Qty As Integer, ByVal Original_Amount As Decimal, ByVal Original_DiscountPer As Decimal, ByVal Original_Discount As Decimal, ByVal Original_VATPer As Decimal, ByVal Original_VAT As Decimal, ByVal Original_TotalAmount As Decimal) As Integer
17737             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_IPo_ID,Integer)
17738             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_InvoiceID,Integer)
17739             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ProductID,Integer)
17740             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_CostPrice,Decimal)
17741             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SellingPrice,Decimal)
17742             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Margin,Decimal)
17743             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Qty,Integer)
17744             Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_Amount,Decimal)
17745             Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_DiscountPer,Decimal)
17746             Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_Discount,Decimal)
17747             Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_VATPer,Decimal)
17748             Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_VAT,Decimal)
17749             Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_TotalAmount,Decimal)
17750             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
17751             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
17752                         <> Global.System.Data.ConnectionState.Open) Then
17753                 Me.Adapter.DeleteCommand.Connection.Open
17754             End If
17755             Try
17756                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
17757                 Return returnValue
17758             Finally
17759                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
17760                     Me.Adapter.DeleteCommand.Connection.Close
17761                 End If
17762             End Try
17763         End Function
17764         
17765         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17766          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17767          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17768          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
17769         Public Overloads Overridable Function Insert(ByVal InvoiceID As Integer, ByVal ProductID As Integer, ByVal CostPrice As Decimal, ByVal SellingPrice As Decimal, ByVal Margin As Decimal, ByVal Qty As Integer, ByVal Amount As Decimal, ByVal DiscountPer As Decimal, ByVal Discount As Decimal, ByVal VATPer As Decimal, ByVal VAT As Decimal, ByVal TotalAmount As Decimal) As Integer
17770             Me.Adapter.InsertCommand.Parameters(0).Value = CType(InvoiceID,Integer)
17771             Me.Adapter.InsertCommand.Parameters(1).Value = CType(ProductID,Integer)
17772             Me.Adapter.InsertCommand.Parameters(2).Value = CType(CostPrice,Decimal)
17773             Me.Adapter.InsertCommand.Parameters(3).Value = CType(SellingPrice,Decimal)
17774             Me.Adapter.InsertCommand.Parameters(4).Value = CType(Margin,Decimal)
17775             Me.Adapter.InsertCommand.Parameters(5).Value = CType(Qty,Integer)
17776             Me.Adapter.InsertCommand.Parameters(6).Value = CType(Amount,Decimal)
17777             Me.Adapter.InsertCommand.Parameters(7).Value = CType(DiscountPer,Decimal)
17778             Me.Adapter.InsertCommand.Parameters(8).Value = CType(Discount,Decimal)
17779             Me.Adapter.InsertCommand.Parameters(9).Value = CType(VATPer,Decimal)
17780             Me.Adapter.InsertCommand.Parameters(10).Value = CType(VAT,Decimal)
17781             Me.Adapter.InsertCommand.Parameters(11).Value = CType(TotalAmount,Decimal)
17782             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
17783             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
17784                         <> Global.System.Data.ConnectionState.Open) Then
17785                 Me.Adapter.InsertCommand.Connection.Open
17786             End If
17787             Try
17788                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
17789                 Return returnValue
17790             Finally
17791                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
17792                     Me.Adapter.InsertCommand.Connection.Close
17793                 End If
17794             End Try
17795         End Function
17796         
17797         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17798          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17799          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17800          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
17801         Public Overloads Overridable Function Update( _
17802                     ByVal InvoiceID As Integer, _
17803                     ByVal ProductID As Integer, _
17804                     ByVal CostPrice As Decimal, _
17805                     ByVal SellingPrice As Decimal, _
17806                     ByVal Margin As Decimal, _
17807                     ByVal Qty As Integer, _
17808                     ByVal Amount As Decimal, _
17809                     ByVal DiscountPer As Decimal, _
17810                     ByVal Discount As Decimal, _
17811                     ByVal VATPer As Decimal, _
17812                     ByVal VAT As Decimal, _
17813                     ByVal TotalAmount As Decimal, _
17814                     ByVal Original_IPo_ID As Integer, _
17815                     ByVal Original_InvoiceID As Integer, _
17816                     ByVal Original_ProductID As Integer, _
17817                     ByVal Original_CostPrice As Decimal, _
17818                     ByVal Original_SellingPrice As Decimal, _
17819                     ByVal Original_Margin As Decimal, _
17820                     ByVal Original_Qty As Integer, _
17821                     ByVal Original_Amount As Decimal, _
17822                     ByVal Original_DiscountPer As Decimal, _
17823                     ByVal Original_Discount As Decimal, _
17824                     ByVal Original_VATPer As Decimal, _
17825                     ByVal Original_VAT As Decimal, _
17826                     ByVal Original_TotalAmount As Decimal, _
17827                     ByVal IPo_ID As Integer) As Integer
17828             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(InvoiceID,Integer)
17829             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ProductID,Integer)
17830             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CostPrice,Decimal)
17831             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SellingPrice,Decimal)
17832             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Margin,Decimal)
17833             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Qty,Integer)
17834             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Amount,Decimal)
17835             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(DiscountPer,Decimal)
17836             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Discount,Decimal)
17837             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(VATPer,Decimal)
17838             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(VAT,Decimal)
17839             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(TotalAmount,Decimal)
17840             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_IPo_ID,Integer)
17841             Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_InvoiceID,Integer)
17842             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ProductID,Integer)
17843             Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CostPrice,Decimal)
17844             Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_SellingPrice,Decimal)
17845             Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Margin,Decimal)
17846             Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_Qty,Integer)
17847             Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_Amount,Decimal)
17848             Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_DiscountPer,Decimal)
17849             Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_Discount,Decimal)
17850             Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_VATPer,Decimal)
17851             Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_VAT,Decimal)
17852             Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_TotalAmount,Decimal)
17853             Me.Adapter.UpdateCommand.Parameters(25).Value = CType(IPo_ID,Integer)
17854             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
17855             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
17856                         <> Global.System.Data.ConnectionState.Open) Then
17857                 Me.Adapter.UpdateCommand.Connection.Open
17858             End If
17859             Try
17860                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
17861                 Return returnValue
17862             Finally
17863                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
17864                     Me.Adapter.UpdateCommand.Connection.Close
17865                 End If
17866             End Try
17867         End Function
17868         
17869         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17870          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17871          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17872          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
17873         Public Overloads Overridable Function Update( _
17874                     ByVal InvoiceID As Integer, _
17875                     ByVal ProductID As Integer, _
17876                     ByVal CostPrice As Decimal, _
17877                     ByVal SellingPrice As Decimal, _
17878                     ByVal Margin As Decimal, _
17879                     ByVal Qty As Integer, _
17880                     ByVal Amount As Decimal, _
17881                     ByVal DiscountPer As Decimal, _
17882                     ByVal Discount As Decimal, _
17883                     ByVal VATPer As Decimal, _
17884                     ByVal VAT As Decimal, _
17885                     ByVal TotalAmount As Decimal, _
17886                     ByVal Original_IPo_ID As Integer, _
17887                     ByVal Original_InvoiceID As Integer, _
17888                     ByVal Original_ProductID As Integer, _
17889                     ByVal Original_CostPrice As Decimal, _
17890                     ByVal Original_SellingPrice As Decimal, _
17891                     ByVal Original_Margin As Decimal, _
17892                     ByVal Original_Qty As Integer, _
17893                     ByVal Original_Amount As Decimal, _
17894                     ByVal Original_DiscountPer As Decimal, _
17895                     ByVal Original_Discount As Decimal, _
17896                     ByVal Original_VATPer As Decimal, _
17897                     ByVal Original_VAT As Decimal, _
17898                     ByVal Original_TotalAmount As Decimal) As Integer
17899             Return Me.Update(InvoiceID, ProductID, CostPrice, SellingPrice, Margin, Qty, Amount, DiscountPer, Discount, VATPer, VAT, TotalAmount, Original_IPo_ID, Original_InvoiceID, Original_ProductID, Original_CostPrice, Original_SellingPrice, Original_Margin, Original_Qty, Original_Amount, Original_DiscountPer, Original_Discount, Original_VATPer, Original_VAT, Original_TotalAmount, Original_IPo_ID)
17900         End Function
17901     End Class
17902     
17903     '''<summary>
17904     '''Represents the connection and commands used to retrieve and save data.
17905     '''</summary>
17906     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
17907      Global.System.ComponentModel.ToolboxItem(true), _
17908      Global.System.ComponentModel.DataObjectAttribute(true), _
17909      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
17910         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
17911      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17912     Partial Public Class Invoice1_PaymentTableAdapter
17913         Inherits Global.System.ComponentModel.Component
17914         
17915         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
17916         
17917         Private _connection As Global.System.Data.SqlClient.SqlConnection
17918         
17919         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
17920         
17921         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
17922         
17923         Private _clearBeforeFill As Boolean
17924         
17925         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17926          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17927         Public Sub New()
17928             MyBase.New
17929             Me.ClearBeforeFill = true
17930         End Sub
17931         
17932         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17933          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17934         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
17935             Get
17936                 If (Me._adapter Is Nothing) Then
17937                     Me.InitAdapter
17938                 End If
17939                 Return Me._adapter
17940             End Get
17941         End Property
17942         
17943         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17944          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17945         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
17946             Get
17947                 If (Me._connection Is Nothing) Then
17948                     Me.InitConnection
17949                 End If
17950                 Return Me._connection
17951             End Get
17952             Set
17953                 Me._connection = value
17954                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
17955                     Me.Adapter.InsertCommand.Connection = value
17956                 End If
17957                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
17958                     Me.Adapter.DeleteCommand.Connection = value
17959                 End If
17960                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
17961                     Me.Adapter.UpdateCommand.Connection = value
17962                 End If
17963                 Dim i As Integer = 0
17964                 Do While (i < Me.CommandCollection.Length)
17965                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
17966                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
17967                     End If
17968                     i = (i + 1)
17969                 Loop
17970             End Set
17971         End Property
17972         
17973         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17974          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17975         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
17976             Get
17977                 Return Me._transaction
17978             End Get
17979             Set
17980                 Me._transaction = value
17981                 Dim i As Integer = 0
17982                 Do While (i < Me.CommandCollection.Length)
17983                     Me.CommandCollection(i).Transaction = Me._transaction
17984                     i = (i + 1)
17985                 Loop
17986                 If ((Not (Me.Adapter) Is Nothing) _
17987                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
17988                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
17989                 End If
17990                 If ((Not (Me.Adapter) Is Nothing) _
17991                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
17992                     Me.Adapter.InsertCommand.Transaction = Me._transaction
17993                 End If
17994                 If ((Not (Me.Adapter) Is Nothing) _
17995                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
17996                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
17997                 End If
17998             End Set
17999         End Property
18000         
18001         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18002          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18003         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
18004             Get
18005                 If (Me._commandCollection Is Nothing) Then
18006                     Me.InitCommandCollection
18007                 End If
18008                 Return Me._commandCollection
18009             End Get
18010         End Property
18011         
18012         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18013          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18014         Public Property ClearBeforeFill() As Boolean
18015             Get
18016                 Return Me._clearBeforeFill
18017             End Get
18018             Set
18019                 Me._clearBeforeFill = value
18020             End Set
18021         End Property
18022         
18023         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18024          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18025         Private Sub InitAdapter()
18026             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
18027             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
18028             tableMapping.SourceTable = "Table"
18029             tableMapping.DataSetTable = "Invoice1_Payment"
18030             tableMapping.ColumnMappings.Add("IP_ID", "IP_ID")
18031             tableMapping.ColumnMappings.Add("InvoiceID", "InvoiceID")
18032             tableMapping.ColumnMappings.Add("PaymentDate", "PaymentDate")
18033             tableMapping.ColumnMappings.Add("TotalPaid", "TotalPaid")
18034             tableMapping.ColumnMappings.Add("PaymentMode", "PaymentMode")
18035             Me._adapter.TableMappings.Add(tableMapping)
18036             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
18037             Me._adapter.DeleteCommand.Connection = Me.Connection
18038             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Invoice1_Payment] WHERE (([IP_ID] = @Original_IP_ID) AND ([Inv"& _
18039                 "oiceID] = @Original_InvoiceID) AND ([PaymentDate] = @Original_PaymentDate) AND ("& _
18040                 "[TotalPaid] = @Original_TotalPaid) AND ([PaymentMode] = @Original_PaymentMode))"
18041             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
18042             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18043             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18044             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18045             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18046             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentMode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentMode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18047             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
18048             Me._adapter.InsertCommand.Connection = Me.Connection
18049             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Invoice1_Payment] ([InvoiceID], [PaymentDate], [TotalPaid], [P"& _
18050                 "aymentMode]) VALUES (@InvoiceID, @PaymentDate, @TotalPaid, @PaymentMode);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELEC"& _
18051                 "T IP_ID, InvoiceID, PaymentDate, TotalPaid, PaymentMode FROM Invoice1_Payment WH"& _
18052                 "ERE (IP_ID = SCOPE_IDENTITY())"
18053             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
18054             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18055             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18056             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18057             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentMode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentMode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18058             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
18059             Me._adapter.UpdateCommand.Connection = Me.Connection
18060             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Invoice1_Payment] SET [InvoiceID] = @InvoiceID, [PaymentDate] = @Pa"& _
18061                 "ymentDate, [TotalPaid] = @TotalPaid, [PaymentMode] = @PaymentMode WHERE (([IP_ID"& _
18062                 "] = @Original_IP_ID) AND ([InvoiceID] = @Original_InvoiceID) AND ([PaymentDate] "& _
18063                 "= @Original_PaymentDate) AND ([TotalPaid] = @Original_TotalPaid) AND ([PaymentMo"& _
18064                 "de] = @Original_PaymentMode));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT IP_ID, InvoiceID, PaymentDate, TotalPaid,"& _
18065                 " PaymentMode FROM Invoice1_Payment WHERE (IP_ID = @IP_ID)"
18066             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
18067             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18068             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18069             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18070             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentMode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentMode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18071             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18072             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18073             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18074             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18075             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentMode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentMode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18076             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18077         End Sub
18078         
18079         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18080          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18081         Private Sub InitConnection()
18082             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
18083             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
18084         End Sub
18085         
18086         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18087          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18088         Private Sub InitCommandCollection()
18089             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
18090             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
18091             Me._commandCollection(0).Connection = Me.Connection
18092             Me._commandCollection(0).CommandText = "SELECT IP_ID, InvoiceID, PaymentDate, TotalPaid, PaymentMode FROM dbo.Invoice1_Pa"& _
18093                 "yment"
18094             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
18095         End Sub
18096         
18097         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18098          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18099          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18100          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
18101         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.Invoice1_PaymentDataTable) As Integer
18102             Me.Adapter.SelectCommand = Me.CommandCollection(0)
18103             If (Me.ClearBeforeFill = true) Then
18104                 dataTable.Clear
18105             End If
18106             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
18107             Return returnValue
18108         End Function
18109         
18110         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18111          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18112          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18113          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
18114         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.Invoice1_PaymentDataTable
18115             Me.Adapter.SelectCommand = Me.CommandCollection(0)
18116             Dim dataTable As SIS_DBDataSet2.Invoice1_PaymentDataTable = New SIS_DBDataSet2.Invoice1_PaymentDataTable()
18117             Me.Adapter.Fill(dataTable)
18118             Return dataTable
18119         End Function
18120         
18121         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18122          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18123          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18124         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.Invoice1_PaymentDataTable) As Integer
18125             Return Me.Adapter.Update(dataTable)
18126         End Function
18127         
18128         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18129          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18130          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18131         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
18132             Return Me.Adapter.Update(dataSet, "Invoice1_Payment")
18133         End Function
18134         
18135         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18136          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18137          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18138         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
18139             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
18140         End Function
18141         
18142         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18143          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18144          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18145         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
18146             Return Me.Adapter.Update(dataRows)
18147         End Function
18148         
18149         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18150          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18151          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18152          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
18153         Public Overloads Overridable Function Delete(ByVal Original_IP_ID As Integer, ByVal Original_InvoiceID As Integer, ByVal Original_PaymentDate As Date, ByVal Original_TotalPaid As Decimal, ByVal Original_PaymentMode As String) As Integer
18154             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_IP_ID,Integer)
18155             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_InvoiceID,Integer)
18156             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_PaymentDate,Date)
18157             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_TotalPaid,Decimal)
18158             If (Original_PaymentMode Is Nothing) Then
18159                 Throw New Global.System.ArgumentNullException("Original_PaymentMode")
18160             Else
18161                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_PaymentMode,String)
18162             End If
18163             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
18164             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
18165                         <> Global.System.Data.ConnectionState.Open) Then
18166                 Me.Adapter.DeleteCommand.Connection.Open
18167             End If
18168             Try
18169                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
18170                 Return returnValue
18171             Finally
18172                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
18173                     Me.Adapter.DeleteCommand.Connection.Close
18174                 End If
18175             End Try
18176         End Function
18177         
18178         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18179          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18180          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18181          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
18182         Public Overloads Overridable Function Insert(ByVal InvoiceID As Integer, ByVal PaymentDate As Date, ByVal TotalPaid As Decimal, ByVal PaymentMode As String) As Integer
18183             Me.Adapter.InsertCommand.Parameters(0).Value = CType(InvoiceID,Integer)
18184             Me.Adapter.InsertCommand.Parameters(1).Value = CType(PaymentDate,Date)
18185             Me.Adapter.InsertCommand.Parameters(2).Value = CType(TotalPaid,Decimal)
18186             If (PaymentMode Is Nothing) Then
18187                 Throw New Global.System.ArgumentNullException("PaymentMode")
18188             Else
18189                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(PaymentMode,String)
18190             End If
18191             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
18192             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
18193                         <> Global.System.Data.ConnectionState.Open) Then
18194                 Me.Adapter.InsertCommand.Connection.Open
18195             End If
18196             Try
18197                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
18198                 Return returnValue
18199             Finally
18200                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
18201                     Me.Adapter.InsertCommand.Connection.Close
18202                 End If
18203             End Try
18204         End Function
18205         
18206         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18207          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18208          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18209          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
18210         Public Overloads Overridable Function Update(ByVal InvoiceID As Integer, ByVal PaymentDate As Date, ByVal TotalPaid As Decimal, ByVal PaymentMode As String, ByVal Original_IP_ID As Integer, ByVal Original_InvoiceID As Integer, ByVal Original_PaymentDate As Date, ByVal Original_TotalPaid As Decimal, ByVal Original_PaymentMode As String, ByVal IP_ID As Integer) As Integer
18211             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(InvoiceID,Integer)
18212             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PaymentDate,Date)
18213             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(TotalPaid,Decimal)
18214             If (PaymentMode Is Nothing) Then
18215                 Throw New Global.System.ArgumentNullException("PaymentMode")
18216             Else
18217                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(PaymentMode,String)
18218             End If
18219             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_IP_ID,Integer)
18220             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_InvoiceID,Integer)
18221             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_PaymentDate,Date)
18222             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_TotalPaid,Decimal)
18223             If (Original_PaymentMode Is Nothing) Then
18224                 Throw New Global.System.ArgumentNullException("Original_PaymentMode")
18225             Else
18226                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_PaymentMode,String)
18227             End If
18228             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(IP_ID,Integer)
18229             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
18230             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
18231                         <> Global.System.Data.ConnectionState.Open) Then
18232                 Me.Adapter.UpdateCommand.Connection.Open
18233             End If
18234             Try
18235                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
18236                 Return returnValue
18237             Finally
18238                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
18239                     Me.Adapter.UpdateCommand.Connection.Close
18240                 End If
18241             End Try
18242         End Function
18243         
18244         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18245          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18246          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18247          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
18248         Public Overloads Overridable Function Update(ByVal InvoiceID As Integer, ByVal PaymentDate As Date, ByVal TotalPaid As Decimal, ByVal PaymentMode As String, ByVal Original_IP_ID As Integer, ByVal Original_InvoiceID As Integer, ByVal Original_PaymentDate As Date, ByVal Original_TotalPaid As Decimal, ByVal Original_PaymentMode As String) As Integer
18249             Return Me.Update(InvoiceID, PaymentDate, TotalPaid, PaymentMode, Original_IP_ID, Original_InvoiceID, Original_PaymentDate, Original_TotalPaid, Original_PaymentMode, Original_IP_ID)
18250         End Function
18251     End Class
18252     
18253     '''<summary>
18254     '''Represents the connection and commands used to retrieve and save data.
18255     '''</summary>
18256     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
18257      Global.System.ComponentModel.ToolboxItem(true), _
18258      Global.System.ComponentModel.DataObjectAttribute(true), _
18259      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
18260         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
18261      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18262     Partial Public Class Invoice1_ProductTableAdapter
18263         Inherits Global.System.ComponentModel.Component
18264         
18265         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
18266         
18267         Private _connection As Global.System.Data.SqlClient.SqlConnection
18268         
18269         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
18270         
18271         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
18272         
18273         Private _clearBeforeFill As Boolean
18274         
18275         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18276          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18277         Public Sub New()
18278             MyBase.New
18279             Me.ClearBeforeFill = true
18280         End Sub
18281         
18282         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18283          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18284         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
18285             Get
18286                 If (Me._adapter Is Nothing) Then
18287                     Me.InitAdapter
18288                 End If
18289                 Return Me._adapter
18290             End Get
18291         End Property
18292         
18293         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18294          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18295         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
18296             Get
18297                 If (Me._connection Is Nothing) Then
18298                     Me.InitConnection
18299                 End If
18300                 Return Me._connection
18301             End Get
18302             Set
18303                 Me._connection = value
18304                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
18305                     Me.Adapter.InsertCommand.Connection = value
18306                 End If
18307                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
18308                     Me.Adapter.DeleteCommand.Connection = value
18309                 End If
18310                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
18311                     Me.Adapter.UpdateCommand.Connection = value
18312                 End If
18313                 Dim i As Integer = 0
18314                 Do While (i < Me.CommandCollection.Length)
18315                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
18316                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
18317                     End If
18318                     i = (i + 1)
18319                 Loop
18320             End Set
18321         End Property
18322         
18323         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18324          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18325         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
18326             Get
18327                 Return Me._transaction
18328             End Get
18329             Set
18330                 Me._transaction = value
18331                 Dim i As Integer = 0
18332                 Do While (i < Me.CommandCollection.Length)
18333                     Me.CommandCollection(i).Transaction = Me._transaction
18334                     i = (i + 1)
18335                 Loop
18336                 If ((Not (Me.Adapter) Is Nothing) _
18337                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
18338                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
18339                 End If
18340                 If ((Not (Me.Adapter) Is Nothing) _
18341                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
18342                     Me.Adapter.InsertCommand.Transaction = Me._transaction
18343                 End If
18344                 If ((Not (Me.Adapter) Is Nothing) _
18345                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
18346                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
18347                 End If
18348             End Set
18349         End Property
18350         
18351         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18352          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18353         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
18354             Get
18355                 If (Me._commandCollection Is Nothing) Then
18356                     Me.InitCommandCollection
18357                 End If
18358                 Return Me._commandCollection
18359             End Get
18360         End Property
18361         
18362         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18363          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18364         Public Property ClearBeforeFill() As Boolean
18365             Get
18366                 Return Me._clearBeforeFill
18367             End Get
18368             Set
18369                 Me._clearBeforeFill = value
18370             End Set
18371         End Property
18372         
18373         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18374          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18375         Private Sub InitAdapter()
18376             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
18377             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
18378             tableMapping.SourceTable = "Table"
18379             tableMapping.DataSetTable = "Invoice1_Product"
18380             tableMapping.ColumnMappings.Add("Ipo_ID", "Ipo_ID")
18381             tableMapping.ColumnMappings.Add("InvoiceID", "InvoiceID")
18382             tableMapping.ColumnMappings.Add("ProductID", "ProductID")
18383             tableMapping.ColumnMappings.Add("CostPrice", "CostPrice")
18384             tableMapping.ColumnMappings.Add("SellingPrice", "SellingPrice")
18385             tableMapping.ColumnMappings.Add("Margin", "Margin")
18386             tableMapping.ColumnMappings.Add("Qty", "Qty")
18387             tableMapping.ColumnMappings.Add("Amount", "Amount")
18388             tableMapping.ColumnMappings.Add("DiscountPer", "DiscountPer")
18389             tableMapping.ColumnMappings.Add("Discount", "Discount")
18390             tableMapping.ColumnMappings.Add("VATPer", "VATPer")
18391             tableMapping.ColumnMappings.Add("VAT", "VAT")
18392             tableMapping.ColumnMappings.Add("TotalAmount", "TotalAmount")
18393             Me._adapter.TableMappings.Add(tableMapping)
18394             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
18395             Me._adapter.DeleteCommand.Connection = Me.Connection
18396             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Invoice1_Product] WHERE (([Ipo_ID] = @Original_Ipo_ID) AND ([I"& _
18397                 "nvoiceID] = @Original_InvoiceID) AND ([ProductID] = @Original_ProductID) AND ([C"& _
18398                 "ostPrice] = @Original_CostPrice) AND ([SellingPrice] = @Original_SellingPrice) A"& _
18399                 "ND ([Margin] = @Original_Margin) AND ([Qty] = @Original_Qty) AND ([Amount] = @Or"& _
18400                 "iginal_Amount) AND ([DiscountPer] = @Original_DiscountPer) AND ([Discount] = @Or"& _
18401                 "iginal_Discount) AND ([VATPer] = @Original_VATPer) AND ([VAT] = @Original_VAT) A"& _
18402                 "ND ([TotalAmount] = @Original_TotalAmount))"
18403             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
18404             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Ipo_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ipo_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18405             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18406             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18407             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18408             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18409             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Margin", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Margin", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18410             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18411             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18412             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18413             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18414             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18415             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18416             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18417             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
18418             Me._adapter.InsertCommand.Connection = Me.Connection
18419             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Invoice1_Product] ([InvoiceID], [ProductID], [CostPrice], [Sel"& _
18420                 "lingPrice], [Margin], [Qty], [Amount], [DiscountPer], [Discount], [VATPer], [VAT"& _
18421                 "], [TotalAmount]) VALUES (@InvoiceID, @ProductID, @CostPrice, @SellingPrice, @Ma"& _
18422                 "rgin, @Qty, @Amount, @DiscountPer, @Discount, @VATPer, @VAT, @TotalAmount);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _
18423                 "ECT Ipo_ID, InvoiceID, ProductID, CostPrice, SellingPrice, Margin, Qty, Amount, "& _
18424                 "DiscountPer, Discount, VATPer, VAT, TotalAmount FROM Invoice1_Product WHERE (Ipo"& _
18425                 "_ID = SCOPE_IDENTITY())"
18426             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
18427             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18428             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18429             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18430             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18431             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Margin", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Margin", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18432             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18433             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18434             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18435             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18436             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18437             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18438             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18439             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
18440             Me._adapter.UpdateCommand.Connection = Me.Connection
18441             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Invoice1_Product] SET [InvoiceID] = @InvoiceID, [ProductID] = @Prod"& _
18442                 "uctID, [CostPrice] = @CostPrice, [SellingPrice] = @SellingPrice, [Margin] = @Mar"& _
18443                 "gin, [Qty] = @Qty, [Amount] = @Amount, [DiscountPer] = @DiscountPer, [Discount] "& _
18444                 "= @Discount, [VATPer] = @VATPer, [VAT] = @VAT, [TotalAmount] = @TotalAmount WHER"& _
18445                 "E (([Ipo_ID] = @Original_Ipo_ID) AND ([InvoiceID] = @Original_InvoiceID) AND ([P"& _
18446                 "roductID] = @Original_ProductID) AND ([CostPrice] = @Original_CostPrice) AND ([S"& _
18447                 "ellingPrice] = @Original_SellingPrice) AND ([Margin] = @Original_Margin) AND ([Q"& _
18448                 "ty] = @Original_Qty) AND ([Amount] = @Original_Amount) AND ([DiscountPer] = @Ori"& _
18449                 "ginal_DiscountPer) AND ([Discount] = @Original_Discount) AND ([VATPer] = @Origin"& _
18450                 "al_VATPer) AND ([VAT] = @Original_VAT) AND ([TotalAmount] = @Original_TotalAmoun"& _
18451                 "t));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Ipo_ID, InvoiceID, ProductID, CostPrice, SellingPrice, Margin, Qty,"& _
18452                 " Amount, DiscountPer, Discount, VATPer, VAT, TotalAmount FROM Invoice1_Product W"& _
18453                 "HERE (Ipo_ID = @Ipo_ID)"
18454             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
18455             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18456             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18457             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18458             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18459             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Margin", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Margin", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18460             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18461             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18462             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18463             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18464             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18465             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18466             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18467             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Ipo_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Ipo_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18468             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18469             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18470             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18471             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18472             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Margin", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Margin", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18473             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18474             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18475             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18476             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18477             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18478             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18479             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18480             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Ipo_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Ipo_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18481         End Sub
18482         
18483         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18484          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18485         Private Sub InitConnection()
18486             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
18487             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
18488         End Sub
18489         
18490         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18491          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18492         Private Sub InitCommandCollection()
18493             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
18494             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
18495             Me._commandCollection(0).Connection = Me.Connection
18496             Me._commandCollection(0).CommandText = "SELECT Ipo_ID, InvoiceID, ProductID, CostPrice, SellingPrice, Margin, Qty, Amount"& _
18497                 ", DiscountPer, Discount, VATPer, VAT, TotalAmount FROM dbo.Invoice1_Product"
18498             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
18499         End Sub
18500         
18501         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18502          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18503          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18504          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
18505         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.Invoice1_ProductDataTable) As Integer
18506             Me.Adapter.SelectCommand = Me.CommandCollection(0)
18507             If (Me.ClearBeforeFill = true) Then
18508                 dataTable.Clear
18509             End If
18510             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
18511             Return returnValue
18512         End Function
18513         
18514         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18515          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18516          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18517          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
18518         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.Invoice1_ProductDataTable
18519             Me.Adapter.SelectCommand = Me.CommandCollection(0)
18520             Dim dataTable As SIS_DBDataSet2.Invoice1_ProductDataTable = New SIS_DBDataSet2.Invoice1_ProductDataTable()
18521             Me.Adapter.Fill(dataTable)
18522             Return dataTable
18523         End Function
18524         
18525         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18526          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18527          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18528         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.Invoice1_ProductDataTable) As Integer
18529             Return Me.Adapter.Update(dataTable)
18530         End Function
18531         
18532         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18533          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18534          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18535         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
18536             Return Me.Adapter.Update(dataSet, "Invoice1_Product")
18537         End Function
18538         
18539         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18540          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18541          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18542         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
18543             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
18544         End Function
18545         
18546         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18547          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18548          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18549         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
18550             Return Me.Adapter.Update(dataRows)
18551         End Function
18552         
18553         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18554          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18555          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18556          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
18557         Public Overloads Overridable Function Delete(ByVal Original_Ipo_ID As Integer, ByVal Original_InvoiceID As Integer, ByVal Original_ProductID As Integer, ByVal Original_CostPrice As Decimal, ByVal Original_SellingPrice As Decimal, ByVal Original_Margin As Decimal, ByVal Original_Qty As Integer, ByVal Original_Amount As Decimal, ByVal Original_DiscountPer As Decimal, ByVal Original_Discount As Decimal, ByVal Original_VATPer As Decimal, ByVal Original_VAT As Decimal, ByVal Original_TotalAmount As Decimal) As Integer
18558             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Ipo_ID,Integer)
18559             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_InvoiceID,Integer)
18560             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ProductID,Integer)
18561             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_CostPrice,Decimal)
18562             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SellingPrice,Decimal)
18563             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Margin,Decimal)
18564             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Qty,Integer)
18565             Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_Amount,Decimal)
18566             Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_DiscountPer,Decimal)
18567             Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_Discount,Decimal)
18568             Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_VATPer,Decimal)
18569             Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_VAT,Decimal)
18570             Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_TotalAmount,Decimal)
18571             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
18572             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
18573                         <> Global.System.Data.ConnectionState.Open) Then
18574                 Me.Adapter.DeleteCommand.Connection.Open
18575             End If
18576             Try
18577                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
18578                 Return returnValue
18579             Finally
18580                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
18581                     Me.Adapter.DeleteCommand.Connection.Close
18582                 End If
18583             End Try
18584         End Function
18585         
18586         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18587          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18588          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18589          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
18590         Public Overloads Overridable Function Insert(ByVal InvoiceID As Integer, ByVal ProductID As Integer, ByVal CostPrice As Decimal, ByVal SellingPrice As Decimal, ByVal Margin As Decimal, ByVal Qty As Integer, ByVal Amount As Decimal, ByVal DiscountPer As Decimal, ByVal Discount As Decimal, ByVal VATPer As Decimal, ByVal VAT As Decimal, ByVal TotalAmount As Decimal) As Integer
18591             Me.Adapter.InsertCommand.Parameters(0).Value = CType(InvoiceID,Integer)
18592             Me.Adapter.InsertCommand.Parameters(1).Value = CType(ProductID,Integer)
18593             Me.Adapter.InsertCommand.Parameters(2).Value = CType(CostPrice,Decimal)
18594             Me.Adapter.InsertCommand.Parameters(3).Value = CType(SellingPrice,Decimal)
18595             Me.Adapter.InsertCommand.Parameters(4).Value = CType(Margin,Decimal)
18596             Me.Adapter.InsertCommand.Parameters(5).Value = CType(Qty,Integer)
18597             Me.Adapter.InsertCommand.Parameters(6).Value = CType(Amount,Decimal)
18598             Me.Adapter.InsertCommand.Parameters(7).Value = CType(DiscountPer,Decimal)
18599             Me.Adapter.InsertCommand.Parameters(8).Value = CType(Discount,Decimal)
18600             Me.Adapter.InsertCommand.Parameters(9).Value = CType(VATPer,Decimal)
18601             Me.Adapter.InsertCommand.Parameters(10).Value = CType(VAT,Decimal)
18602             Me.Adapter.InsertCommand.Parameters(11).Value = CType(TotalAmount,Decimal)
18603             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
18604             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
18605                         <> Global.System.Data.ConnectionState.Open) Then
18606                 Me.Adapter.InsertCommand.Connection.Open
18607             End If
18608             Try
18609                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
18610                 Return returnValue
18611             Finally
18612                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
18613                     Me.Adapter.InsertCommand.Connection.Close
18614                 End If
18615             End Try
18616         End Function
18617         
18618         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18619          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18620          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18621          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
18622         Public Overloads Overridable Function Update( _
18623                     ByVal InvoiceID As Integer, _
18624                     ByVal ProductID As Integer, _
18625                     ByVal CostPrice As Decimal, _
18626                     ByVal SellingPrice As Decimal, _
18627                     ByVal Margin As Decimal, _
18628                     ByVal Qty As Integer, _
18629                     ByVal Amount As Decimal, _
18630                     ByVal DiscountPer As Decimal, _
18631                     ByVal Discount As Decimal, _
18632                     ByVal VATPer As Decimal, _
18633                     ByVal VAT As Decimal, _
18634                     ByVal TotalAmount As Decimal, _
18635                     ByVal Original_Ipo_ID As Integer, _
18636                     ByVal Original_InvoiceID As Integer, _
18637                     ByVal Original_ProductID As Integer, _
18638                     ByVal Original_CostPrice As Decimal, _
18639                     ByVal Original_SellingPrice As Decimal, _
18640                     ByVal Original_Margin As Decimal, _
18641                     ByVal Original_Qty As Integer, _
18642                     ByVal Original_Amount As Decimal, _
18643                     ByVal Original_DiscountPer As Decimal, _
18644                     ByVal Original_Discount As Decimal, _
18645                     ByVal Original_VATPer As Decimal, _
18646                     ByVal Original_VAT As Decimal, _
18647                     ByVal Original_TotalAmount As Decimal, _
18648                     ByVal Ipo_ID As Integer) As Integer
18649             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(InvoiceID,Integer)
18650             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ProductID,Integer)
18651             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CostPrice,Decimal)
18652             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SellingPrice,Decimal)
18653             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Margin,Decimal)
18654             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Qty,Integer)
18655             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Amount,Decimal)
18656             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(DiscountPer,Decimal)
18657             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Discount,Decimal)
18658             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(VATPer,Decimal)
18659             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(VAT,Decimal)
18660             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(TotalAmount,Decimal)
18661             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_Ipo_ID,Integer)
18662             Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_InvoiceID,Integer)
18663             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ProductID,Integer)
18664             Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CostPrice,Decimal)
18665             Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_SellingPrice,Decimal)
18666             Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Margin,Decimal)
18667             Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_Qty,Integer)
18668             Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_Amount,Decimal)
18669             Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_DiscountPer,Decimal)
18670             Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_Discount,Decimal)
18671             Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_VATPer,Decimal)
18672             Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_VAT,Decimal)
18673             Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_TotalAmount,Decimal)
18674             Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Ipo_ID,Integer)
18675             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
18676             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
18677                         <> Global.System.Data.ConnectionState.Open) Then
18678                 Me.Adapter.UpdateCommand.Connection.Open
18679             End If
18680             Try
18681                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
18682                 Return returnValue
18683             Finally
18684                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
18685                     Me.Adapter.UpdateCommand.Connection.Close
18686                 End If
18687             End Try
18688         End Function
18689         
18690         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18691          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18692          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18693          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
18694         Public Overloads Overridable Function Update( _
18695                     ByVal InvoiceID As Integer, _
18696                     ByVal ProductID As Integer, _
18697                     ByVal CostPrice As Decimal, _
18698                     ByVal SellingPrice As Decimal, _
18699                     ByVal Margin As Decimal, _
18700                     ByVal Qty As Integer, _
18701                     ByVal Amount As Decimal, _
18702                     ByVal DiscountPer As Decimal, _
18703                     ByVal Discount As Decimal, _
18704                     ByVal VATPer As Decimal, _
18705                     ByVal VAT As Decimal, _
18706                     ByVal TotalAmount As Decimal, _
18707                     ByVal Original_Ipo_ID As Integer, _
18708                     ByVal Original_InvoiceID As Integer, _
18709                     ByVal Original_ProductID As Integer, _
18710                     ByVal Original_CostPrice As Decimal, _
18711                     ByVal Original_SellingPrice As Decimal, _
18712                     ByVal Original_Margin As Decimal, _
18713                     ByVal Original_Qty As Integer, _
18714                     ByVal Original_Amount As Decimal, _
18715                     ByVal Original_DiscountPer As Decimal, _
18716                     ByVal Original_Discount As Decimal, _
18717                     ByVal Original_VATPer As Decimal, _
18718                     ByVal Original_VAT As Decimal, _
18719                     ByVal Original_TotalAmount As Decimal) As Integer
18720             Return Me.Update(InvoiceID, ProductID, CostPrice, SellingPrice, Margin, Qty, Amount, DiscountPer, Discount, VATPer, VAT, TotalAmount, Original_Ipo_ID, Original_InvoiceID, Original_ProductID, Original_CostPrice, Original_SellingPrice, Original_Margin, Original_Qty, Original_Amount, Original_DiscountPer, Original_Discount, Original_VATPer, Original_VAT, Original_TotalAmount, Original_Ipo_ID)
18721         End Function
18722     End Class
18723     
18724     '''<summary>
18725     '''Represents the connection and commands used to retrieve and save data.
18726     '''</summary>
18727     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
18728      Global.System.ComponentModel.ToolboxItem(true), _
18729      Global.System.ComponentModel.DataObjectAttribute(true), _
18730      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
18731         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
18732      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18733     Partial Public Class InvoiceInfoTableAdapter
18734         Inherits Global.System.ComponentModel.Component
18735         
18736         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
18737         
18738         Private _connection As Global.System.Data.SqlClient.SqlConnection
18739         
18740         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
18741         
18742         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
18743         
18744         Private _clearBeforeFill As Boolean
18745         
18746         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18747          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18748         Public Sub New()
18749             MyBase.New
18750             Me.ClearBeforeFill = true
18751         End Sub
18752         
18753         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18754          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18755         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
18756             Get
18757                 If (Me._adapter Is Nothing) Then
18758                     Me.InitAdapter
18759                 End If
18760                 Return Me._adapter
18761             End Get
18762         End Property
18763         
18764         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18765          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18766         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
18767             Get
18768                 If (Me._connection Is Nothing) Then
18769                     Me.InitConnection
18770                 End If
18771                 Return Me._connection
18772             End Get
18773             Set
18774                 Me._connection = value
18775                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
18776                     Me.Adapter.InsertCommand.Connection = value
18777                 End If
18778                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
18779                     Me.Adapter.DeleteCommand.Connection = value
18780                 End If
18781                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
18782                     Me.Adapter.UpdateCommand.Connection = value
18783                 End If
18784                 Dim i As Integer = 0
18785                 Do While (i < Me.CommandCollection.Length)
18786                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
18787                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
18788                     End If
18789                     i = (i + 1)
18790                 Loop
18791             End Set
18792         End Property
18793         
18794         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18795          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18796         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
18797             Get
18798                 Return Me._transaction
18799             End Get
18800             Set
18801                 Me._transaction = value
18802                 Dim i As Integer = 0
18803                 Do While (i < Me.CommandCollection.Length)
18804                     Me.CommandCollection(i).Transaction = Me._transaction
18805                     i = (i + 1)
18806                 Loop
18807                 If ((Not (Me.Adapter) Is Nothing) _
18808                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
18809                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
18810                 End If
18811                 If ((Not (Me.Adapter) Is Nothing) _
18812                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
18813                     Me.Adapter.InsertCommand.Transaction = Me._transaction
18814                 End If
18815                 If ((Not (Me.Adapter) Is Nothing) _
18816                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
18817                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
18818                 End If
18819             End Set
18820         End Property
18821         
18822         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18823          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18824         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
18825             Get
18826                 If (Me._commandCollection Is Nothing) Then
18827                     Me.InitCommandCollection
18828                 End If
18829                 Return Me._commandCollection
18830             End Get
18831         End Property
18832         
18833         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18834          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18835         Public Property ClearBeforeFill() As Boolean
18836             Get
18837                 Return Me._clearBeforeFill
18838             End Get
18839             Set
18840                 Me._clearBeforeFill = value
18841             End Set
18842         End Property
18843         
18844         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18845          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18846         Private Sub InitAdapter()
18847             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
18848             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
18849             tableMapping.SourceTable = "Table"
18850             tableMapping.DataSetTable = "InvoiceInfo"
18851             tableMapping.ColumnMappings.Add("Inv_ID", "Inv_ID")
18852             tableMapping.ColumnMappings.Add("InvoiceNo", "InvoiceNo")
18853             tableMapping.ColumnMappings.Add("InvoiceDate", "InvoiceDate")
18854             tableMapping.ColumnMappings.Add("CustomerID", "CustomerID")
18855             tableMapping.ColumnMappings.Add("GrandTotal", "GrandTotal")
18856             tableMapping.ColumnMappings.Add("TotalPaid", "TotalPaid")
18857             tableMapping.ColumnMappings.Add("Balance", "Balance")
18858             tableMapping.ColumnMappings.Add("Remarks", "Remarks")
18859             Me._adapter.TableMappings.Add(tableMapping)
18860             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
18861             Me._adapter.DeleteCommand.Connection = Me.Connection
18862             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[InvoiceInfo] WHERE (([Inv_ID] = @Original_Inv_ID) AND ([Invoic"& _
18863                 "eNo] = @Original_InvoiceNo) AND ([InvoiceDate] = @Original_InvoiceDate) AND ([Cu"& _
18864                 "stomerID] = @Original_CustomerID) AND ([GrandTotal] = @Original_GrandTotal) AND "& _
18865                 "([TotalPaid] = @Original_TotalPaid) AND ([Balance] = @Original_Balance))"
18866             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
18867             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Inv_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Inv_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18868             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18869             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18870             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18871             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18872             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18873             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Balance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Balance", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18874             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
18875             Me._adapter.InsertCommand.Connection = Me.Connection
18876             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[InvoiceInfo] ([Inv_ID], [InvoiceNo], [InvoiceDate], [CustomerI"& _
18877                 "D], [GrandTotal], [TotalPaid], [Balance], [Remarks]) VALUES (@Inv_ID, @InvoiceNo"& _
18878                 ", @InvoiceDate, @CustomerID, @GrandTotal, @TotalPaid, @Balance, @Remarks);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELE"& _
18879                 "CT Inv_ID, InvoiceNo, InvoiceDate, CustomerID, GrandTotal, TotalPaid, Balance, R"& _
18880                 "emarks FROM InvoiceInfo WHERE (Inv_ID = @Inv_ID)"
18881             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
18882             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Inv_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Inv_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18883             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18884             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18885             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18886             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18887             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18888             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Balance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Balance", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18889             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18890             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
18891             Me._adapter.UpdateCommand.Connection = Me.Connection
18892             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[InvoiceInfo] SET [Inv_ID] = @Inv_ID, [InvoiceNo] = @InvoiceNo, [Inv"& _
18893                 "oiceDate] = @InvoiceDate, [CustomerID] = @CustomerID, [GrandTotal] = @GrandTotal"& _
18894                 ", [TotalPaid] = @TotalPaid, [Balance] = @Balance, [Remarks] = @Remarks WHERE ((["& _
18895                 "Inv_ID] = @Original_Inv_ID) AND ([InvoiceNo] = @Original_InvoiceNo) AND ([Invoic"& _
18896                 "eDate] = @Original_InvoiceDate) AND ([CustomerID] = @Original_CustomerID) AND (["& _
18897                 "GrandTotal] = @Original_GrandTotal) AND ([TotalPaid] = @Original_TotalPaid) AND "& _
18898                 "([Balance] = @Original_Balance));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Inv_ID, InvoiceNo, InvoiceDate, Custom"& _
18899                 "erID, GrandTotal, TotalPaid, Balance, Remarks FROM InvoiceInfo WHERE (Inv_ID = @"& _
18900                 "Inv_ID)"
18901             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
18902             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Inv_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Inv_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18903             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18904             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18905             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18906             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18907             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18908             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Balance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Balance", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18909             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18910             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Inv_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Inv_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18911             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18912             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18913             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18914             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18915             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18916             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Balance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Balance", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18917         End Sub
18918         
18919         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18920          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18921         Private Sub InitConnection()
18922             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
18923             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
18924         End Sub
18925         
18926         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18927          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18928         Private Sub InitCommandCollection()
18929             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
18930             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
18931             Me._commandCollection(0).Connection = Me.Connection
18932             Me._commandCollection(0).CommandText = "SELECT Inv_ID, InvoiceNo, InvoiceDate, CustomerID, GrandTotal, TotalPaid, Balance"& _
18933                 ", Remarks FROM dbo.InvoiceInfo"
18934             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
18935         End Sub
18936         
18937         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18938          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18939          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18940          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
18941         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.InvoiceInfoDataTable) As Integer
18942             Me.Adapter.SelectCommand = Me.CommandCollection(0)
18943             If (Me.ClearBeforeFill = true) Then
18944                 dataTable.Clear
18945             End If
18946             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
18947             Return returnValue
18948         End Function
18949         
18950         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18951          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18952          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18953          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
18954         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.InvoiceInfoDataTable
18955             Me.Adapter.SelectCommand = Me.CommandCollection(0)
18956             Dim dataTable As SIS_DBDataSet2.InvoiceInfoDataTable = New SIS_DBDataSet2.InvoiceInfoDataTable()
18957             Me.Adapter.Fill(dataTable)
18958             Return dataTable
18959         End Function
18960         
18961         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18962          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18963          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18964         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.InvoiceInfoDataTable) As Integer
18965             Return Me.Adapter.Update(dataTable)
18966         End Function
18967         
18968         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18969          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18970          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18971         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
18972             Return Me.Adapter.Update(dataSet, "InvoiceInfo")
18973         End Function
18974         
18975         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18976          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18977          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18978         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
18979             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
18980         End Function
18981         
18982         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18983          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18984          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18985         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
18986             Return Me.Adapter.Update(dataRows)
18987         End Function
18988         
18989         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18990          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18991          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18992          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
18993         Public Overloads Overridable Function Delete(ByVal Original_Inv_ID As Integer, ByVal Original_InvoiceNo As String, ByVal Original_InvoiceDate As Date, ByVal Original_CustomerID As Integer, ByVal Original_GrandTotal As Decimal, ByVal Original_TotalPaid As Decimal, ByVal Original_Balance As Decimal) As Integer
18994             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Inv_ID,Integer)
18995             If (Original_InvoiceNo Is Nothing) Then
18996                 Throw New Global.System.ArgumentNullException("Original_InvoiceNo")
18997             Else
18998                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_InvoiceNo,String)
18999             End If
19000             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_InvoiceDate,Date)
19001             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_CustomerID,Integer)
19002             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_GrandTotal,Decimal)
19003             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_TotalPaid,Decimal)
19004             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Balance,Decimal)
19005             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
19006             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
19007                         <> Global.System.Data.ConnectionState.Open) Then
19008                 Me.Adapter.DeleteCommand.Connection.Open
19009             End If
19010             Try
19011                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
19012                 Return returnValue
19013             Finally
19014                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
19015                     Me.Adapter.DeleteCommand.Connection.Close
19016                 End If
19017             End Try
19018         End Function
19019         
19020         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19021          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19022          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19023          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
19024         Public Overloads Overridable Function Insert(ByVal Inv_ID As Integer, ByVal InvoiceNo As String, ByVal InvoiceDate As Date, ByVal CustomerID As Integer, ByVal GrandTotal As Decimal, ByVal TotalPaid As Decimal, ByVal Balance As Decimal, ByVal Remarks As String) As Integer
19025             Me.Adapter.InsertCommand.Parameters(0).Value = CType(Inv_ID,Integer)
19026             If (InvoiceNo Is Nothing) Then
19027                 Throw New Global.System.ArgumentNullException("InvoiceNo")
19028             Else
19029                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(InvoiceNo,String)
19030             End If
19031             Me.Adapter.InsertCommand.Parameters(2).Value = CType(InvoiceDate,Date)
19032             Me.Adapter.InsertCommand.Parameters(3).Value = CType(CustomerID,Integer)
19033             Me.Adapter.InsertCommand.Parameters(4).Value = CType(GrandTotal,Decimal)
19034             Me.Adapter.InsertCommand.Parameters(5).Value = CType(TotalPaid,Decimal)
19035             Me.Adapter.InsertCommand.Parameters(6).Value = CType(Balance,Decimal)
19036             If (Remarks Is Nothing) Then
19037                 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
19038             Else
19039                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(Remarks,String)
19040             End If
19041             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
19042             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
19043                         <> Global.System.Data.ConnectionState.Open) Then
19044                 Me.Adapter.InsertCommand.Connection.Open
19045             End If
19046             Try
19047                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
19048                 Return returnValue
19049             Finally
19050                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
19051                     Me.Adapter.InsertCommand.Connection.Close
19052                 End If
19053             End Try
19054         End Function
19055         
19056         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19057          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19058          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19059          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
19060         Public Overloads Overridable Function Update(ByVal Inv_ID As Integer, ByVal InvoiceNo As String, ByVal InvoiceDate As Date, ByVal CustomerID As Integer, ByVal GrandTotal As Decimal, ByVal TotalPaid As Decimal, ByVal Balance As Decimal, ByVal Remarks As String, ByVal Original_Inv_ID As Integer, ByVal Original_InvoiceNo As String, ByVal Original_InvoiceDate As Date, ByVal Original_CustomerID As Integer, ByVal Original_GrandTotal As Decimal, ByVal Original_TotalPaid As Decimal, ByVal Original_Balance As Decimal) As Integer
19061             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Inv_ID,Integer)
19062             If (InvoiceNo Is Nothing) Then
19063                 Throw New Global.System.ArgumentNullException("InvoiceNo")
19064             Else
19065                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(InvoiceNo,String)
19066             End If
19067             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(InvoiceDate,Date)
19068             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CustomerID,Integer)
19069             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GrandTotal,Decimal)
19070             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TotalPaid,Decimal)
19071             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Balance,Decimal)
19072             If (Remarks Is Nothing) Then
19073                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
19074             Else
19075                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Remarks,String)
19076             End If
19077             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Inv_ID,Integer)
19078             If (Original_InvoiceNo Is Nothing) Then
19079                 Throw New Global.System.ArgumentNullException("Original_InvoiceNo")
19080             Else
19081                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_InvoiceNo,String)
19082             End If
19083             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_InvoiceDate,Date)
19084             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_CustomerID,Integer)
19085             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GrandTotal,Decimal)
19086             Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_TotalPaid,Decimal)
19087             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_Balance,Decimal)
19088             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
19089             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
19090                         <> Global.System.Data.ConnectionState.Open) Then
19091                 Me.Adapter.UpdateCommand.Connection.Open
19092             End If
19093             Try
19094                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
19095                 Return returnValue
19096             Finally
19097                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
19098                     Me.Adapter.UpdateCommand.Connection.Close
19099                 End If
19100             End Try
19101         End Function
19102         
19103         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19104          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19105          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19106          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
19107         Public Overloads Overridable Function Update(ByVal InvoiceNo As String, ByVal InvoiceDate As Date, ByVal CustomerID As Integer, ByVal GrandTotal As Decimal, ByVal TotalPaid As Decimal, ByVal Balance As Decimal, ByVal Remarks As String, ByVal Original_Inv_ID As Integer, ByVal Original_InvoiceNo As String, ByVal Original_InvoiceDate As Date, ByVal Original_CustomerID As Integer, ByVal Original_GrandTotal As Decimal, ByVal Original_TotalPaid As Decimal, ByVal Original_Balance As Decimal) As Integer
19108             Return Me.Update(Original_Inv_ID, InvoiceNo, InvoiceDate, CustomerID, GrandTotal, TotalPaid, Balance, Remarks, Original_Inv_ID, Original_InvoiceNo, Original_InvoiceDate, Original_CustomerID, Original_GrandTotal, Original_TotalPaid, Original_Balance)
19109         End Function
19110     End Class
19111     
19112     '''<summary>
19113     '''Represents the connection and commands used to retrieve and save data.
19114     '''</summary>
19115     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
19116      Global.System.ComponentModel.ToolboxItem(true), _
19117      Global.System.ComponentModel.DataObjectAttribute(true), _
19118      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
19119         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
19120      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19121     Partial Public Class InvoiceInfo1TableAdapter
19122         Inherits Global.System.ComponentModel.Component
19123         
19124         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
19125         
19126         Private _connection As Global.System.Data.SqlClient.SqlConnection
19127         
19128         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
19129         
19130         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
19131         
19132         Private _clearBeforeFill As Boolean
19133         
19134         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19135          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19136         Public Sub New()
19137             MyBase.New
19138             Me.ClearBeforeFill = true
19139         End Sub
19140         
19141         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19142          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19143         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
19144             Get
19145                 If (Me._adapter Is Nothing) Then
19146                     Me.InitAdapter
19147                 End If
19148                 Return Me._adapter
19149             End Get
19150         End Property
19151         
19152         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19153          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19154         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
19155             Get
19156                 If (Me._connection Is Nothing) Then
19157                     Me.InitConnection
19158                 End If
19159                 Return Me._connection
19160             End Get
19161             Set
19162                 Me._connection = value
19163                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
19164                     Me.Adapter.InsertCommand.Connection = value
19165                 End If
19166                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
19167                     Me.Adapter.DeleteCommand.Connection = value
19168                 End If
19169                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
19170                     Me.Adapter.UpdateCommand.Connection = value
19171                 End If
19172                 Dim i As Integer = 0
19173                 Do While (i < Me.CommandCollection.Length)
19174                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
19175                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
19176                     End If
19177                     i = (i + 1)
19178                 Loop
19179             End Set
19180         End Property
19181         
19182         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19183          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19184         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
19185             Get
19186                 Return Me._transaction
19187             End Get
19188             Set
19189                 Me._transaction = value
19190                 Dim i As Integer = 0
19191                 Do While (i < Me.CommandCollection.Length)
19192                     Me.CommandCollection(i).Transaction = Me._transaction
19193                     i = (i + 1)
19194                 Loop
19195                 If ((Not (Me.Adapter) Is Nothing) _
19196                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
19197                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
19198                 End If
19199                 If ((Not (Me.Adapter) Is Nothing) _
19200                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
19201                     Me.Adapter.InsertCommand.Transaction = Me._transaction
19202                 End If
19203                 If ((Not (Me.Adapter) Is Nothing) _
19204                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
19205                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
19206                 End If
19207             End Set
19208         End Property
19209         
19210         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19211          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19212         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
19213             Get
19214                 If (Me._commandCollection Is Nothing) Then
19215                     Me.InitCommandCollection
19216                 End If
19217                 Return Me._commandCollection
19218             End Get
19219         End Property
19220         
19221         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19222          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19223         Public Property ClearBeforeFill() As Boolean
19224             Get
19225                 Return Me._clearBeforeFill
19226             End Get
19227             Set
19228                 Me._clearBeforeFill = value
19229             End Set
19230         End Property
19231         
19232         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19233          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19234         Private Sub InitAdapter()
19235             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
19236             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
19237             tableMapping.SourceTable = "Table"
19238             tableMapping.DataSetTable = "InvoiceInfo1"
19239             tableMapping.ColumnMappings.Add("Inv_ID", "Inv_ID")
19240             tableMapping.ColumnMappings.Add("InvoiceNo", "InvoiceNo")
19241             tableMapping.ColumnMappings.Add("InvoiceDate", "InvoiceDate")
19242             tableMapping.ColumnMappings.Add("ServiceID", "ServiceID")
19243             tableMapping.ColumnMappings.Add("RepairCharges", "RepairCharges")
19244             tableMapping.ColumnMappings.Add("Upfront", "Upfront")
19245             tableMapping.ColumnMappings.Add("ProductCharges", "ProductCharges")
19246             tableMapping.ColumnMappings.Add("ServiceTaxPer", "ServiceTaxPer")
19247             tableMapping.ColumnMappings.Add("ServiceTax", "ServiceTax")
19248             tableMapping.ColumnMappings.Add("GrandTotal", "GrandTotal")
19249             tableMapping.ColumnMappings.Add("TotalPaid", "TotalPaid")
19250             tableMapping.ColumnMappings.Add("Balance", "Balance")
19251             tableMapping.ColumnMappings.Add("Remarks", "Remarks")
19252             Me._adapter.TableMappings.Add(tableMapping)
19253             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
19254             Me._adapter.DeleteCommand.Connection = Me.Connection
19255             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[InvoiceInfo1] WHERE (([Inv_ID] = @Original_Inv_ID) AND ([Invoi"& _
19256                 "ceNo] = @Original_InvoiceNo) AND ([InvoiceDate] = @Original_InvoiceDate) AND ([S"& _
19257                 "erviceID] = @Original_ServiceID) AND ([RepairCharges] = @Original_RepairCharges)"& _
19258                 " AND ([Upfront] = @Original_Upfront) AND ([ProductCharges] = @Original_ProductCh"& _
19259                 "arges) AND ([ServiceTaxPer] = @Original_ServiceTaxPer) AND ([ServiceTax] = @Orig"& _
19260                 "inal_ServiceTax) AND ([GrandTotal] = @Original_GrandTotal) AND ([TotalPaid] = @O"& _
19261                 "riginal_TotalPaid) AND ([Balance] = @Original_Balance))"
19262             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
19263             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Inv_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Inv_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19264             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19265             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19266             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19267             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RepairCharges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "RepairCharges", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19268             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Upfront", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Upfront", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19269             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductCharges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ProductCharges", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19270             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceTaxPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ServiceTaxPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19271             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceTax", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ServiceTax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19272             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19273             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19274             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Balance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Balance", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19275             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
19276             Me._adapter.InsertCommand.Connection = Me.Connection
19277             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[InvoiceInfo1] ([Inv_ID], [InvoiceNo], [InvoiceDate], [ServiceI"& _
19278                 "D], [RepairCharges], [Upfront], [ProductCharges], [ServiceTaxPer], [ServiceTax],"& _
19279                 " [GrandTotal], [TotalPaid], [Balance], [Remarks]) VALUES (@Inv_ID, @InvoiceNo, @"& _
19280                 "InvoiceDate, @ServiceID, @RepairCharges, @Upfront, @ProductCharges, @ServiceTaxP"& _
19281                 "er, @ServiceTax, @GrandTotal, @TotalPaid, @Balance, @Remarks);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Inv_ID, I"& _
19282                 "nvoiceNo, InvoiceDate, ServiceID, RepairCharges, Upfront, ProductCharges, Servic"& _
19283                 "eTaxPer, ServiceTax, GrandTotal, TotalPaid, Balance, Remarks FROM InvoiceInfo1 W"& _
19284                 "HERE (Inv_ID = @Inv_ID)"
19285             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
19286             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Inv_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Inv_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19287             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19288             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19289             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19290             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RepairCharges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "RepairCharges", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19291             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Upfront", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Upfront", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19292             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductCharges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ProductCharges", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19293             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceTaxPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ServiceTaxPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19294             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceTax", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ServiceTax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19295             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19296             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19297             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Balance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Balance", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19298             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19299             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
19300             Me._adapter.UpdateCommand.Connection = Me.Connection
19301             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[InvoiceInfo1] SET [Inv_ID] = @Inv_ID, [InvoiceNo] = @InvoiceNo, [In"& _
19302                 "voiceDate] = @InvoiceDate, [ServiceID] = @ServiceID, [RepairCharges] = @RepairCh"& _
19303                 "arges, [Upfront] = @Upfront, [ProductCharges] = @ProductCharges, [ServiceTaxPer]"& _
19304                 " = @ServiceTaxPer, [ServiceTax] = @ServiceTax, [GrandTotal] = @GrandTotal, [Tota"& _
19305                 "lPaid] = @TotalPaid, [Balance] = @Balance, [Remarks] = @Remarks WHERE (([Inv_ID]"& _
19306                 " = @Original_Inv_ID) AND ([InvoiceNo] = @Original_InvoiceNo) AND ([InvoiceDate] "& _
19307                 "= @Original_InvoiceDate) AND ([ServiceID] = @Original_ServiceID) AND ([RepairCha"& _
19308                 "rges] = @Original_RepairCharges) AND ([Upfront] = @Original_Upfront) AND ([Produ"& _
19309                 "ctCharges] = @Original_ProductCharges) AND ([ServiceTaxPer] = @Original_ServiceT"& _
19310                 "axPer) AND ([ServiceTax] = @Original_ServiceTax) AND ([GrandTotal] = @Original_G"& _
19311                 "randTotal) AND ([TotalPaid] = @Original_TotalPaid) AND ([Balance] = @Original_Ba"& _
19312                 "lance));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Inv_ID, InvoiceNo, InvoiceDate, ServiceID, RepairCharges, Upfro"& _
19313                 "nt, ProductCharges, ServiceTaxPer, ServiceTax, GrandTotal, TotalPaid, Balance, R"& _
19314                 "emarks FROM InvoiceInfo1 WHERE (Inv_ID = @Inv_ID)"
19315             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
19316             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Inv_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Inv_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19317             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19318             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19319             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19320             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RepairCharges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "RepairCharges", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19321             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Upfront", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Upfront", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19322             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductCharges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ProductCharges", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19323             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceTaxPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ServiceTaxPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19324             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceTax", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ServiceTax", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19325             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19326             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19327             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Balance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Balance", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19328             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19329             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Inv_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Inv_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19330             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19331             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19332             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19333             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RepairCharges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "RepairCharges", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19334             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Upfront", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Upfront", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19335             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductCharges", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ProductCharges", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19336             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceTaxPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ServiceTaxPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19337             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceTax", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ServiceTax", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19338             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19339             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19340             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Balance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Balance", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19341         End Sub
19342         
19343         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19344          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19345         Private Sub InitConnection()
19346             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
19347             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
19348         End Sub
19349         
19350         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19351          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19352         Private Sub InitCommandCollection()
19353             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
19354             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
19355             Me._commandCollection(0).Connection = Me.Connection
19356             Me._commandCollection(0).CommandText = "SELECT Inv_ID, InvoiceNo, InvoiceDate, ServiceID, RepairCharges, Upfront, Product"& _
19357                 "Charges, ServiceTaxPer, ServiceTax, GrandTotal, TotalPaid, Balance, Remarks FROM"& _
19358                 " dbo.InvoiceInfo1"
19359             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
19360         End Sub
19361         
19362         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19363          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19364          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19365          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
19366         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.InvoiceInfo1DataTable) As Integer
19367             Me.Adapter.SelectCommand = Me.CommandCollection(0)
19368             If (Me.ClearBeforeFill = true) Then
19369                 dataTable.Clear
19370             End If
19371             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
19372             Return returnValue
19373         End Function
19374         
19375         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19376          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19377          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19378          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
19379         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.InvoiceInfo1DataTable
19380             Me.Adapter.SelectCommand = Me.CommandCollection(0)
19381             Dim dataTable As SIS_DBDataSet2.InvoiceInfo1DataTable = New SIS_DBDataSet2.InvoiceInfo1DataTable()
19382             Me.Adapter.Fill(dataTable)
19383             Return dataTable
19384         End Function
19385         
19386         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19387          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19388          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19389         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.InvoiceInfo1DataTable) As Integer
19390             Return Me.Adapter.Update(dataTable)
19391         End Function
19392         
19393         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19394          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19395          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19396         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
19397             Return Me.Adapter.Update(dataSet, "InvoiceInfo1")
19398         End Function
19399         
19400         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19401          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19402          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19403         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
19404             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
19405         End Function
19406         
19407         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19408          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19409          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19410         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
19411             Return Me.Adapter.Update(dataRows)
19412         End Function
19413         
19414         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19415          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19416          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19417          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
19418         Public Overloads Overridable Function Delete(ByVal Original_Inv_ID As Integer, ByVal Original_InvoiceNo As String, ByVal Original_InvoiceDate As Date, ByVal Original_ServiceID As Integer, ByVal Original_RepairCharges As Decimal, ByVal Original_Upfront As Decimal, ByVal Original_ProductCharges As Decimal, ByVal Original_ServiceTaxPer As Decimal, ByVal Original_ServiceTax As Decimal, ByVal Original_GrandTotal As Decimal, ByVal Original_TotalPaid As Decimal, ByVal Original_Balance As Decimal) As Integer
19419             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Inv_ID,Integer)
19420             If (Original_InvoiceNo Is Nothing) Then
19421                 Throw New Global.System.ArgumentNullException("Original_InvoiceNo")
19422             Else
19423                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_InvoiceNo,String)
19424             End If
19425             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_InvoiceDate,Date)
19426             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ServiceID,Integer)
19427             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_RepairCharges,Decimal)
19428             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Upfront,Decimal)
19429             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ProductCharges,Decimal)
19430             Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ServiceTaxPer,Decimal)
19431             Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ServiceTax,Decimal)
19432             Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_GrandTotal,Decimal)
19433             Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_TotalPaid,Decimal)
19434             Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_Balance,Decimal)
19435             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
19436             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
19437                         <> Global.System.Data.ConnectionState.Open) Then
19438                 Me.Adapter.DeleteCommand.Connection.Open
19439             End If
19440             Try
19441                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
19442                 Return returnValue
19443             Finally
19444                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
19445                     Me.Adapter.DeleteCommand.Connection.Close
19446                 End If
19447             End Try
19448         End Function
19449         
19450         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19451          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19452          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19453          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
19454         Public Overloads Overridable Function Insert(ByVal Inv_ID As Integer, ByVal InvoiceNo As String, ByVal InvoiceDate As Date, ByVal ServiceID As Integer, ByVal RepairCharges As Decimal, ByVal Upfront As Decimal, ByVal ProductCharges As Decimal, ByVal ServiceTaxPer As Decimal, ByVal ServiceTax As Decimal, ByVal GrandTotal As Decimal, ByVal TotalPaid As Decimal, ByVal Balance As Decimal, ByVal Remarks As String) As Integer
19455             Me.Adapter.InsertCommand.Parameters(0).Value = CType(Inv_ID,Integer)
19456             If (InvoiceNo Is Nothing) Then
19457                 Throw New Global.System.ArgumentNullException("InvoiceNo")
19458             Else
19459                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(InvoiceNo,String)
19460             End If
19461             Me.Adapter.InsertCommand.Parameters(2).Value = CType(InvoiceDate,Date)
19462             Me.Adapter.InsertCommand.Parameters(3).Value = CType(ServiceID,Integer)
19463             Me.Adapter.InsertCommand.Parameters(4).Value = CType(RepairCharges,Decimal)
19464             Me.Adapter.InsertCommand.Parameters(5).Value = CType(Upfront,Decimal)
19465             Me.Adapter.InsertCommand.Parameters(6).Value = CType(ProductCharges,Decimal)
19466             Me.Adapter.InsertCommand.Parameters(7).Value = CType(ServiceTaxPer,Decimal)
19467             Me.Adapter.InsertCommand.Parameters(8).Value = CType(ServiceTax,Decimal)
19468             Me.Adapter.InsertCommand.Parameters(9).Value = CType(GrandTotal,Decimal)
19469             Me.Adapter.InsertCommand.Parameters(10).Value = CType(TotalPaid,Decimal)
19470             Me.Adapter.InsertCommand.Parameters(11).Value = CType(Balance,Decimal)
19471             If (Remarks Is Nothing) Then
19472                 Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value
19473             Else
19474                 Me.Adapter.InsertCommand.Parameters(12).Value = CType(Remarks,String)
19475             End If
19476             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
19477             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
19478                         <> Global.System.Data.ConnectionState.Open) Then
19479                 Me.Adapter.InsertCommand.Connection.Open
19480             End If
19481             Try
19482                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
19483                 Return returnValue
19484             Finally
19485                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
19486                     Me.Adapter.InsertCommand.Connection.Close
19487                 End If
19488             End Try
19489         End Function
19490         
19491         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19492          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19493          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19494          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
19495         Public Overloads Overridable Function Update( _
19496                     ByVal Inv_ID As Integer, _
19497                     ByVal InvoiceNo As String, _
19498                     ByVal InvoiceDate As Date, _
19499                     ByVal ServiceID As Integer, _
19500                     ByVal RepairCharges As Decimal, _
19501                     ByVal Upfront As Decimal, _
19502                     ByVal ProductCharges As Decimal, _
19503                     ByVal ServiceTaxPer As Decimal, _
19504                     ByVal ServiceTax As Decimal, _
19505                     ByVal GrandTotal As Decimal, _
19506                     ByVal TotalPaid As Decimal, _
19507                     ByVal Balance As Decimal, _
19508                     ByVal Remarks As String, _
19509                     ByVal Original_Inv_ID As Integer, _
19510                     ByVal Original_InvoiceNo As String, _
19511                     ByVal Original_InvoiceDate As Date, _
19512                     ByVal Original_ServiceID As Integer, _
19513                     ByVal Original_RepairCharges As Decimal, _
19514                     ByVal Original_Upfront As Decimal, _
19515                     ByVal Original_ProductCharges As Decimal, _
19516                     ByVal Original_ServiceTaxPer As Decimal, _
19517                     ByVal Original_ServiceTax As Decimal, _
19518                     ByVal Original_GrandTotal As Decimal, _
19519                     ByVal Original_TotalPaid As Decimal, _
19520                     ByVal Original_Balance As Decimal) As Integer
19521             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Inv_ID,Integer)
19522             If (InvoiceNo Is Nothing) Then
19523                 Throw New Global.System.ArgumentNullException("InvoiceNo")
19524             Else
19525                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(InvoiceNo,String)
19526             End If
19527             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(InvoiceDate,Date)
19528             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ServiceID,Integer)
19529             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(RepairCharges,Decimal)
19530             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Upfront,Decimal)
19531             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ProductCharges,Decimal)
19532             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ServiceTaxPer,Decimal)
19533             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ServiceTax,Decimal)
19534             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(GrandTotal,Decimal)
19535             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(TotalPaid,Decimal)
19536             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Balance,Decimal)
19537             If (Remarks Is Nothing) Then
19538                 Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
19539             Else
19540                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Remarks,String)
19541             End If
19542             Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Inv_ID,Integer)
19543             If (Original_InvoiceNo Is Nothing) Then
19544                 Throw New Global.System.ArgumentNullException("Original_InvoiceNo")
19545             Else
19546                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_InvoiceNo,String)
19547             End If
19548             Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_InvoiceDate,Date)
19549             Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ServiceID,Integer)
19550             Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_RepairCharges,Decimal)
19551             Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_Upfront,Decimal)
19552             Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ProductCharges,Decimal)
19553             Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_ServiceTaxPer,Decimal)
19554             Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_ServiceTax,Decimal)
19555             Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_GrandTotal,Decimal)
19556             Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_TotalPaid,Decimal)
19557             Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_Balance,Decimal)
19558             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
19559             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
19560                         <> Global.System.Data.ConnectionState.Open) Then
19561                 Me.Adapter.UpdateCommand.Connection.Open
19562             End If
19563             Try
19564                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
19565                 Return returnValue
19566             Finally
19567                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
19568                     Me.Adapter.UpdateCommand.Connection.Close
19569                 End If
19570             End Try
19571         End Function
19572         
19573         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19574          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19575          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19576          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
19577         Public Overloads Overridable Function Update( _
19578                     ByVal InvoiceNo As String, _
19579                     ByVal InvoiceDate As Date, _
19580                     ByVal ServiceID As Integer, _
19581                     ByVal RepairCharges As Decimal, _
19582                     ByVal Upfront As Decimal, _
19583                     ByVal ProductCharges As Decimal, _
19584                     ByVal ServiceTaxPer As Decimal, _
19585                     ByVal ServiceTax As Decimal, _
19586                     ByVal GrandTotal As Decimal, _
19587                     ByVal TotalPaid As Decimal, _
19588                     ByVal Balance As Decimal, _
19589                     ByVal Remarks As String, _
19590                     ByVal Original_Inv_ID As Integer, _
19591                     ByVal Original_InvoiceNo As String, _
19592                     ByVal Original_InvoiceDate As Date, _
19593                     ByVal Original_ServiceID As Integer, _
19594                     ByVal Original_RepairCharges As Decimal, _
19595                     ByVal Original_Upfront As Decimal, _
19596                     ByVal Original_ProductCharges As Decimal, _
19597                     ByVal Original_ServiceTaxPer As Decimal, _
19598                     ByVal Original_ServiceTax As Decimal, _
19599                     ByVal Original_GrandTotal As Decimal, _
19600                     ByVal Original_TotalPaid As Decimal, _
19601                     ByVal Original_Balance As Decimal) As Integer
19602             Return Me.Update(Original_Inv_ID, InvoiceNo, InvoiceDate, ServiceID, RepairCharges, Upfront, ProductCharges, ServiceTaxPer, ServiceTax, GrandTotal, TotalPaid, Balance, Remarks, Original_Inv_ID, Original_InvoiceNo, Original_InvoiceDate, Original_ServiceID, Original_RepairCharges, Original_Upfront, Original_ProductCharges, Original_ServiceTaxPer, Original_ServiceTax, Original_GrandTotal, Original_TotalPaid, Original_Balance)
19603         End Function
19604     End Class
19605     
19606     '''<summary>
19607     '''Represents the connection and commands used to retrieve and save data.
19608     '''</summary>
19609     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
19610      Global.System.ComponentModel.ToolboxItem(true), _
19611      Global.System.ComponentModel.DataObjectAttribute(true), _
19612      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
19613         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
19614      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19615     Partial Public Class LogsTableAdapter
19616         Inherits Global.System.ComponentModel.Component
19617         
19618         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
19619         
19620         Private _connection As Global.System.Data.SqlClient.SqlConnection
19621         
19622         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
19623         
19624         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
19625         
19626         Private _clearBeforeFill As Boolean
19627         
19628         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19629          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19630         Public Sub New()
19631             MyBase.New
19632             Me.ClearBeforeFill = true
19633         End Sub
19634         
19635         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19636          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19637         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
19638             Get
19639                 If (Me._adapter Is Nothing) Then
19640                     Me.InitAdapter
19641                 End If
19642                 Return Me._adapter
19643             End Get
19644         End Property
19645         
19646         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19647          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19648         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
19649             Get
19650                 If (Me._connection Is Nothing) Then
19651                     Me.InitConnection
19652                 End If
19653                 Return Me._connection
19654             End Get
19655             Set
19656                 Me._connection = value
19657                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
19658                     Me.Adapter.InsertCommand.Connection = value
19659                 End If
19660                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
19661                     Me.Adapter.DeleteCommand.Connection = value
19662                 End If
19663                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
19664                     Me.Adapter.UpdateCommand.Connection = value
19665                 End If
19666                 Dim i As Integer = 0
19667                 Do While (i < Me.CommandCollection.Length)
19668                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
19669                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
19670                     End If
19671                     i = (i + 1)
19672                 Loop
19673             End Set
19674         End Property
19675         
19676         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19677          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19678         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
19679             Get
19680                 Return Me._transaction
19681             End Get
19682             Set
19683                 Me._transaction = value
19684                 Dim i As Integer = 0
19685                 Do While (i < Me.CommandCollection.Length)
19686                     Me.CommandCollection(i).Transaction = Me._transaction
19687                     i = (i + 1)
19688                 Loop
19689                 If ((Not (Me.Adapter) Is Nothing) _
19690                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
19691                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
19692                 End If
19693                 If ((Not (Me.Adapter) Is Nothing) _
19694                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
19695                     Me.Adapter.InsertCommand.Transaction = Me._transaction
19696                 End If
19697                 If ((Not (Me.Adapter) Is Nothing) _
19698                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
19699                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
19700                 End If
19701             End Set
19702         End Property
19703         
19704         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19705          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19706         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
19707             Get
19708                 If (Me._commandCollection Is Nothing) Then
19709                     Me.InitCommandCollection
19710                 End If
19711                 Return Me._commandCollection
19712             End Get
19713         End Property
19714         
19715         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19716          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19717         Public Property ClearBeforeFill() As Boolean
19718             Get
19719                 Return Me._clearBeforeFill
19720             End Get
19721             Set
19722                 Me._clearBeforeFill = value
19723             End Set
19724         End Property
19725         
19726         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19727          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19728         Private Sub InitAdapter()
19729             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
19730             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
19731             tableMapping.SourceTable = "Table"
19732             tableMapping.DataSetTable = "Logs"
19733             tableMapping.ColumnMappings.Add("ID", "ID")
19734             tableMapping.ColumnMappings.Add("UserID", "UserID")
19735             tableMapping.ColumnMappings.Add("Operation", "Operation")
19736             tableMapping.ColumnMappings.Add("Date", "Date")
19737             Me._adapter.TableMappings.Add(tableMapping)
19738             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
19739             Me._adapter.DeleteCommand.Connection = Me.Connection
19740             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Logs] WHERE (([ID] = @Original_ID) AND ([UserID] = @Original_U"& _
19741                 "serID) AND ([Date] = @Original_Date))"
19742             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
19743             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19744             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19745             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19746             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
19747             Me._adapter.InsertCommand.Connection = Me.Connection
19748             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Logs] ([UserID], [Operation], [Date]) VALUES (@UserID, @Operat"& _
19749                 "ion, @Date);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, UserID, Operation, Date FROM Logs WHERE (ID = SCOPE_IDE"& _
19750                 "NTITY())"
19751             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
19752             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19753             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Operation", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Operation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19754             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19755             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
19756             Me._adapter.UpdateCommand.Connection = Me.Connection
19757             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Logs] SET [UserID] = @UserID, [Operation] = @Operation, [Date] = @D"& _
19758                 "ate WHERE (([ID] = @Original_ID) AND ([UserID] = @Original_UserID) AND ([Date] ="& _
19759                 " @Original_Date));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, UserID, Operation, Date FROM Logs WHERE (ID = @ID"& _
19760                 ")"
19761             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
19762             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19763             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Operation", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Operation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19764             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19765             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19766             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19767             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19768             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19769         End Sub
19770         
19771         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19772          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19773         Private Sub InitConnection()
19774             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
19775             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
19776         End Sub
19777         
19778         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19779          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19780         Private Sub InitCommandCollection()
19781             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
19782             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
19783             Me._commandCollection(0).Connection = Me.Connection
19784             Me._commandCollection(0).CommandText = "SELECT ID, UserID, Operation, Date FROM dbo.Logs"
19785             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
19786         End Sub
19787         
19788         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19789          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19790          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19791          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
19792         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.LogsDataTable) As Integer
19793             Me.Adapter.SelectCommand = Me.CommandCollection(0)
19794             If (Me.ClearBeforeFill = true) Then
19795                 dataTable.Clear
19796             End If
19797             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
19798             Return returnValue
19799         End Function
19800         
19801         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19802          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19803          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19804          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
19805         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.LogsDataTable
19806             Me.Adapter.SelectCommand = Me.CommandCollection(0)
19807             Dim dataTable As SIS_DBDataSet2.LogsDataTable = New SIS_DBDataSet2.LogsDataTable()
19808             Me.Adapter.Fill(dataTable)
19809             Return dataTable
19810         End Function
19811         
19812         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19813          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19814          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19815         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.LogsDataTable) As Integer
19816             Return Me.Adapter.Update(dataTable)
19817         End Function
19818         
19819         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19820          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19821          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19822         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
19823             Return Me.Adapter.Update(dataSet, "Logs")
19824         End Function
19825         
19826         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19827          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19828          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19829         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
19830             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
19831         End Function
19832         
19833         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19834          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19835          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19836         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
19837             Return Me.Adapter.Update(dataRows)
19838         End Function
19839         
19840         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19841          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19842          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19843          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
19844         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer, ByVal Original_UserID As String, ByVal Original_Date As Date) As Integer
19845             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
19846             If (Original_UserID Is Nothing) Then
19847                 Throw New Global.System.ArgumentNullException("Original_UserID")
19848             Else
19849                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_UserID,String)
19850             End If
19851             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Date,Date)
19852             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
19853             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
19854                         <> Global.System.Data.ConnectionState.Open) Then
19855                 Me.Adapter.DeleteCommand.Connection.Open
19856             End If
19857             Try
19858                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
19859                 Return returnValue
19860             Finally
19861                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
19862                     Me.Adapter.DeleteCommand.Connection.Close
19863                 End If
19864             End Try
19865         End Function
19866         
19867         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19868          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19869          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19870          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
19871         Public Overloads Overridable Function Insert(ByVal UserID As String, ByVal Operation As String, ByVal _Date As Date) As Integer
19872             If (UserID Is Nothing) Then
19873                 Throw New Global.System.ArgumentNullException("UserID")
19874             Else
19875                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(UserID,String)
19876             End If
19877             If (Operation Is Nothing) Then
19878                 Throw New Global.System.ArgumentNullException("Operation")
19879             Else
19880                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Operation,String)
19881             End If
19882             Me.Adapter.InsertCommand.Parameters(2).Value = CType(_Date,Date)
19883             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
19884             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
19885                         <> Global.System.Data.ConnectionState.Open) Then
19886                 Me.Adapter.InsertCommand.Connection.Open
19887             End If
19888             Try
19889                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
19890                 Return returnValue
19891             Finally
19892                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
19893                     Me.Adapter.InsertCommand.Connection.Close
19894                 End If
19895             End Try
19896         End Function
19897         
19898         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19899          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19900          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19901          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
19902         Public Overloads Overridable Function Update(ByVal UserID As String, ByVal Operation As String, ByVal _Date As Date, ByVal Original_ID As Integer, ByVal Original_UserID As String, ByVal Original_Date As Date, ByVal ID As Integer) As Integer
19903             If (UserID Is Nothing) Then
19904                 Throw New Global.System.ArgumentNullException("UserID")
19905             Else
19906                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UserID,String)
19907             End If
19908             If (Operation Is Nothing) Then
19909                 Throw New Global.System.ArgumentNullException("Operation")
19910             Else
19911                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Operation,String)
19912             End If
19913             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(_Date,Date)
19914             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_ID,Integer)
19915             If (Original_UserID Is Nothing) Then
19916                 Throw New Global.System.ArgumentNullException("Original_UserID")
19917             Else
19918                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_UserID,String)
19919             End If
19920             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Date,Date)
19921             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ID,Integer)
19922             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
19923             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
19924                         <> Global.System.Data.ConnectionState.Open) Then
19925                 Me.Adapter.UpdateCommand.Connection.Open
19926             End If
19927             Try
19928                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
19929                 Return returnValue
19930             Finally
19931                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
19932                     Me.Adapter.UpdateCommand.Connection.Close
19933                 End If
19934             End Try
19935         End Function
19936         
19937         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19938          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19939          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19940          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
19941         Public Overloads Overridable Function Update(ByVal UserID As String, ByVal Operation As String, ByVal _Date As Date, ByVal Original_ID As Integer, ByVal Original_UserID As String, ByVal Original_Date As Date) As Integer
19942             Return Me.Update(UserID, Operation, _Date, Original_ID, Original_UserID, Original_Date, Original_ID)
19943         End Function
19944     End Class
19945     
19946     '''<summary>
19947     '''Represents the connection and commands used to retrieve and save data.
19948     '''</summary>
19949     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
19950      Global.System.ComponentModel.ToolboxItem(true), _
19951      Global.System.ComponentModel.DataObjectAttribute(true), _
19952      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
19953         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
19954      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19955     Partial Public Class ProductTableAdapter
19956         Inherits Global.System.ComponentModel.Component
19957         
19958         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
19959         
19960         Private _connection As Global.System.Data.SqlClient.SqlConnection
19961         
19962         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
19963         
19964         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
19965         
19966         Private _clearBeforeFill As Boolean
19967         
19968         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19969          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19970         Public Sub New()
19971             MyBase.New
19972             Me.ClearBeforeFill = true
19973         End Sub
19974         
19975         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19976          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19977         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
19978             Get
19979                 If (Me._adapter Is Nothing) Then
19980                     Me.InitAdapter
19981                 End If
19982                 Return Me._adapter
19983             End Get
19984         End Property
19985         
19986         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19987          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19988         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
19989             Get
19990                 If (Me._connection Is Nothing) Then
19991                     Me.InitConnection
19992                 End If
19993                 Return Me._connection
19994             End Get
19995             Set
19996                 Me._connection = value
19997                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
19998                     Me.Adapter.InsertCommand.Connection = value
19999                 End If
20000                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
20001                     Me.Adapter.DeleteCommand.Connection = value
20002                 End If
20003                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
20004                     Me.Adapter.UpdateCommand.Connection = value
20005                 End If
20006                 Dim i As Integer = 0
20007                 Do While (i < Me.CommandCollection.Length)
20008                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
20009                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
20010                     End If
20011                     i = (i + 1)
20012                 Loop
20013             End Set
20014         End Property
20015         
20016         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20017          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20018         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
20019             Get
20020                 Return Me._transaction
20021             End Get
20022             Set
20023                 Me._transaction = value
20024                 Dim i As Integer = 0
20025                 Do While (i < Me.CommandCollection.Length)
20026                     Me.CommandCollection(i).Transaction = Me._transaction
20027                     i = (i + 1)
20028                 Loop
20029                 If ((Not (Me.Adapter) Is Nothing) _
20030                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
20031                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
20032                 End If
20033                 If ((Not (Me.Adapter) Is Nothing) _
20034                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
20035                     Me.Adapter.InsertCommand.Transaction = Me._transaction
20036                 End If
20037                 If ((Not (Me.Adapter) Is Nothing) _
20038                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
20039                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
20040                 End If
20041             End Set
20042         End Property
20043         
20044         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20045          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20046         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
20047             Get
20048                 If (Me._commandCollection Is Nothing) Then
20049                     Me.InitCommandCollection
20050                 End If
20051                 Return Me._commandCollection
20052             End Get
20053         End Property
20054         
20055         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20056          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20057         Public Property ClearBeforeFill() As Boolean
20058             Get
20059                 Return Me._clearBeforeFill
20060             End Get
20061             Set
20062                 Me._clearBeforeFill = value
20063             End Set
20064         End Property
20065         
20066         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20067          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20068         Private Sub InitAdapter()
20069             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
20070             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
20071             tableMapping.SourceTable = "Table"
20072             tableMapping.DataSetTable = "Product"
20073             tableMapping.ColumnMappings.Add("PID", "PID")
20074             tableMapping.ColumnMappings.Add("ProductCode", "ProductCode")
20075             tableMapping.ColumnMappings.Add("ProductName", "ProductName")
20076             tableMapping.ColumnMappings.Add("SubCategoryID", "SubCategoryID")
20077             tableMapping.ColumnMappings.Add("Description", "Description")
20078             tableMapping.ColumnMappings.Add("CostPrice", "CostPrice")
20079             tableMapping.ColumnMappings.Add("SellingPrice", "SellingPrice")
20080             tableMapping.ColumnMappings.Add("Discount", "Discount")
20081             tableMapping.ColumnMappings.Add("VAT", "VAT")
20082             tableMapping.ColumnMappings.Add("ReorderPoint", "ReorderPoint")
20083             Me._adapter.TableMappings.Add(tableMapping)
20084             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
20085             Me._adapter.DeleteCommand.Connection = Me.Connection
20086             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Product] WHERE (([PID] = @Original_PID) AND ([ProductCode] = @"& _
20087                 "Original_ProductCode) AND ([ProductName] = @Original_ProductName) AND ([SubCateg"& _
20088                 "oryID] = @Original_SubCategoryID) AND ([CostPrice] = @Original_CostPrice) AND (["& _
20089                 "SellingPrice] = @Original_SellingPrice) AND ([Discount] = @Original_Discount) AN"& _
20090                 "D ([VAT] = @Original_VAT) AND ([ReorderPoint] = @Original_ReorderPoint))"
20091             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
20092             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20093             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20094             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20095             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SubCategoryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20096             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20097             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20098             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20099             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20100             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ReorderPoint", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ReorderPoint", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20101             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
20102             Me._adapter.InsertCommand.Connection = Me.Connection
20103             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Product] ([PID], [ProductCode], [ProductName], [SubCategoryID]"& _
20104                 ", [Description], [CostPrice], [SellingPrice], [Discount], [VAT], [ReorderPoint])"& _
20105                 " VALUES (@PID, @ProductCode, @ProductName, @SubCategoryID, @Description, @CostPr"& _
20106                 "ice, @SellingPrice, @Discount, @VAT, @ReorderPoint);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT PID, ProductCode, P"& _
20107                 "roductName, SubCategoryID, Description, CostPrice, SellingPrice, Discount, VAT, "& _
20108                 "ReorderPoint FROM Product WHERE (PID = @PID)"
20109             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
20110             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20111             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20112             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20113             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SubCategoryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20114             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Description", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Description", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20115             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20116             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20117             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20118             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20119             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ReorderPoint", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ReorderPoint", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20120             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
20121             Me._adapter.UpdateCommand.Connection = Me.Connection
20122             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Product] SET [PID] = @PID, [ProductCode] = @ProductCode, [ProductNa"& _
20123                 "me] = @ProductName, [SubCategoryID] = @SubCategoryID, [Description] = @Descripti"& _
20124                 "on, [CostPrice] = @CostPrice, [SellingPrice] = @SellingPrice, [Discount] = @Disc"& _
20125                 "ount, [VAT] = @VAT, [ReorderPoint] = @ReorderPoint WHERE (([PID] = @Original_PID"& _
20126                 ") AND ([ProductCode] = @Original_ProductCode) AND ([ProductName] = @Original_Pro"& _
20127                 "ductName) AND ([SubCategoryID] = @Original_SubCategoryID) AND ([CostPrice] = @Or"& _
20128                 "iginal_CostPrice) AND ([SellingPrice] = @Original_SellingPrice) AND ([Discount] "& _
20129                 "= @Original_Discount) AND ([VAT] = @Original_VAT) AND ([ReorderPoint] = @Origina"& _
20130                 "l_ReorderPoint));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT PID, ProductCode, ProductName, SubCategoryID, Descript"& _
20131                 "ion, CostPrice, SellingPrice, Discount, VAT, ReorderPoint FROM Product WHERE (PI"& _
20132                 "D = @PID)"
20133             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
20134             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20135             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20136             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20137             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SubCategoryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20138             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Description", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Description", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20139             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20140             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20141             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20142             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20143             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ReorderPoint", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ReorderPoint", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20144             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20145             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20146             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20147             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SubCategoryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20148             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20149             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20150             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20151             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20152             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ReorderPoint", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ReorderPoint", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20153         End Sub
20154         
20155         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20156          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20157         Private Sub InitConnection()
20158             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
20159             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
20160         End Sub
20161         
20162         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20163          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20164         Private Sub InitCommandCollection()
20165             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
20166             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
20167             Me._commandCollection(0).Connection = Me.Connection
20168             Me._commandCollection(0).CommandText = "SELECT PID, ProductCode, ProductName, SubCategoryID, Description, CostPrice, Sell"& _
20169                 "ingPrice, Discount, VAT, ReorderPoint FROM dbo.Product"
20170             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
20171         End Sub
20172         
20173         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20174          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20175          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20176          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
20177         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.ProductDataTable) As Integer
20178             Me.Adapter.SelectCommand = Me.CommandCollection(0)
20179             If (Me.ClearBeforeFill = true) Then
20180                 dataTable.Clear
20181             End If
20182             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
20183             Return returnValue
20184         End Function
20185         
20186         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20187          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20188          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20189          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
20190         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.ProductDataTable
20191             Me.Adapter.SelectCommand = Me.CommandCollection(0)
20192             Dim dataTable As SIS_DBDataSet2.ProductDataTable = New SIS_DBDataSet2.ProductDataTable()
20193             Me.Adapter.Fill(dataTable)
20194             Return dataTable
20195         End Function
20196         
20197         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20198          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20199          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
20200         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.ProductDataTable) As Integer
20201             Return Me.Adapter.Update(dataTable)
20202         End Function
20203         
20204         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20205          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20206          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
20207         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
20208             Return Me.Adapter.Update(dataSet, "Product")
20209         End Function
20210         
20211         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20212          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20213          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
20214         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
20215             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
20216         End Function
20217         
20218         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20219          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20220          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
20221         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
20222             Return Me.Adapter.Update(dataRows)
20223         End Function
20224         
20225         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20226          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20227          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20228          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
20229         Public Overloads Overridable Function Delete(ByVal Original_PID As Integer, ByVal Original_ProductCode As String, ByVal Original_ProductName As String, ByVal Original_SubCategoryID As Integer, ByVal Original_CostPrice As Decimal, ByVal Original_SellingPrice As Decimal, ByVal Original_Discount As Decimal, ByVal Original_VAT As Decimal, ByVal Original_ReorderPoint As Integer) As Integer
20230             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_PID,Integer)
20231             If (Original_ProductCode Is Nothing) Then
20232                 Throw New Global.System.ArgumentNullException("Original_ProductCode")
20233             Else
20234                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ProductCode,String)
20235             End If
20236             If (Original_ProductName Is Nothing) Then
20237                 Throw New Global.System.ArgumentNullException("Original_ProductName")
20238             Else
20239                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ProductName,String)
20240             End If
20241             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_SubCategoryID,Integer)
20242             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_CostPrice,Decimal)
20243             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_SellingPrice,Decimal)
20244             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Discount,Decimal)
20245             Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_VAT,Decimal)
20246             Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ReorderPoint,Integer)
20247             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
20248             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
20249                         <> Global.System.Data.ConnectionState.Open) Then
20250                 Me.Adapter.DeleteCommand.Connection.Open
20251             End If
20252             Try
20253                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
20254                 Return returnValue
20255             Finally
20256                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
20257                     Me.Adapter.DeleteCommand.Connection.Close
20258                 End If
20259             End Try
20260         End Function
20261         
20262         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20263          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20264          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20265          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
20266         Public Overloads Overridable Function Insert(ByVal PID As Integer, ByVal ProductCode As String, ByVal ProductName As String, ByVal SubCategoryID As Integer, ByVal Description As String, ByVal CostPrice As Decimal, ByVal SellingPrice As Decimal, ByVal Discount As Decimal, ByVal VAT As Decimal, ByVal ReorderPoint As Integer) As Integer
20267             Me.Adapter.InsertCommand.Parameters(0).Value = CType(PID,Integer)
20268             If (ProductCode Is Nothing) Then
20269                 Throw New Global.System.ArgumentNullException("ProductCode")
20270             Else
20271                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(ProductCode,String)
20272             End If
20273             If (ProductName Is Nothing) Then
20274                 Throw New Global.System.ArgumentNullException("ProductName")
20275             Else
20276                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(ProductName,String)
20277             End If
20278             Me.Adapter.InsertCommand.Parameters(3).Value = CType(SubCategoryID,Integer)
20279             If (Description Is Nothing) Then
20280                 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
20281             Else
20282                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Description,String)
20283             End If
20284             Me.Adapter.InsertCommand.Parameters(5).Value = CType(CostPrice,Decimal)
20285             Me.Adapter.InsertCommand.Parameters(6).Value = CType(SellingPrice,Decimal)
20286             Me.Adapter.InsertCommand.Parameters(7).Value = CType(Discount,Decimal)
20287             Me.Adapter.InsertCommand.Parameters(8).Value = CType(VAT,Decimal)
20288             Me.Adapter.InsertCommand.Parameters(9).Value = CType(ReorderPoint,Integer)
20289             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
20290             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
20291                         <> Global.System.Data.ConnectionState.Open) Then
20292                 Me.Adapter.InsertCommand.Connection.Open
20293             End If
20294             Try
20295                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
20296                 Return returnValue
20297             Finally
20298                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
20299                     Me.Adapter.InsertCommand.Connection.Close
20300                 End If
20301             End Try
20302         End Function
20303         
20304         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20305          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20306          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20307          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
20308         Public Overloads Overridable Function Update( _
20309                     ByVal PID As Integer, _
20310                     ByVal ProductCode As String, _
20311                     ByVal ProductName As String, _
20312                     ByVal SubCategoryID As Integer, _
20313                     ByVal Description As String, _
20314                     ByVal CostPrice As Decimal, _
20315                     ByVal SellingPrice As Decimal, _
20316                     ByVal Discount As Decimal, _
20317                     ByVal VAT As Decimal, _
20318                     ByVal ReorderPoint As Integer, _
20319                     ByVal Original_PID As Integer, _
20320                     ByVal Original_ProductCode As String, _
20321                     ByVal Original_ProductName As String, _
20322                     ByVal Original_SubCategoryID As Integer, _
20323                     ByVal Original_CostPrice As Decimal, _
20324                     ByVal Original_SellingPrice As Decimal, _
20325                     ByVal Original_Discount As Decimal, _
20326                     ByVal Original_VAT As Decimal, _
20327                     ByVal Original_ReorderPoint As Integer) As Integer
20328             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PID,Integer)
20329             If (ProductCode Is Nothing) Then
20330                 Throw New Global.System.ArgumentNullException("ProductCode")
20331             Else
20332                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ProductCode,String)
20333             End If
20334             If (ProductName Is Nothing) Then
20335                 Throw New Global.System.ArgumentNullException("ProductName")
20336             Else
20337                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ProductName,String)
20338             End If
20339             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SubCategoryID,Integer)
20340             If (Description Is Nothing) Then
20341                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
20342             Else
20343                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Description,String)
20344             End If
20345             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CostPrice,Decimal)
20346             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SellingPrice,Decimal)
20347             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Discount,Decimal)
20348             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(VAT,Decimal)
20349             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ReorderPoint,Integer)
20350             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_PID,Integer)
20351             If (Original_ProductCode Is Nothing) Then
20352                 Throw New Global.System.ArgumentNullException("Original_ProductCode")
20353             Else
20354                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ProductCode,String)
20355             End If
20356             If (Original_ProductName Is Nothing) Then
20357                 Throw New Global.System.ArgumentNullException("Original_ProductName")
20358             Else
20359                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ProductName,String)
20360             End If
20361             Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_SubCategoryID,Integer)
20362             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_CostPrice,Decimal)
20363             Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_SellingPrice,Decimal)
20364             Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_Discount,Decimal)
20365             Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_VAT,Decimal)
20366             Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ReorderPoint,Integer)
20367             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
20368             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
20369                         <> Global.System.Data.ConnectionState.Open) Then
20370                 Me.Adapter.UpdateCommand.Connection.Open
20371             End If
20372             Try
20373                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
20374                 Return returnValue
20375             Finally
20376                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
20377                     Me.Adapter.UpdateCommand.Connection.Close
20378                 End If
20379             End Try
20380         End Function
20381         
20382         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20383          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20384          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20385          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
20386         Public Overloads Overridable Function Update( _
20387                     ByVal ProductCode As String, _
20388                     ByVal ProductName As String, _
20389                     ByVal SubCategoryID As Integer, _
20390                     ByVal Description As String, _
20391                     ByVal CostPrice As Decimal, _
20392                     ByVal SellingPrice As Decimal, _
20393                     ByVal Discount As Decimal, _
20394                     ByVal VAT As Decimal, _
20395                     ByVal ReorderPoint As Integer, _
20396                     ByVal Original_PID As Integer, _
20397                     ByVal Original_ProductCode As String, _
20398                     ByVal Original_ProductName As String, _
20399                     ByVal Original_SubCategoryID As Integer, _
20400                     ByVal Original_CostPrice As Decimal, _
20401                     ByVal Original_SellingPrice As Decimal, _
20402                     ByVal Original_Discount As Decimal, _
20403                     ByVal Original_VAT As Decimal, _
20404                     ByVal Original_ReorderPoint As Integer) As Integer
20405             Return Me.Update(Original_PID, ProductCode, ProductName, SubCategoryID, Description, CostPrice, SellingPrice, Discount, VAT, ReorderPoint, Original_PID, Original_ProductCode, Original_ProductName, Original_SubCategoryID, Original_CostPrice, Original_SellingPrice, Original_Discount, Original_VAT, Original_ReorderPoint)
20406         End Function
20407     End Class
20408     
20409     '''<summary>
20410     '''Represents the connection and commands used to retrieve and save data.
20411     '''</summary>
20412     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
20413      Global.System.ComponentModel.ToolboxItem(true), _
20414      Global.System.ComponentModel.DataObjectAttribute(true), _
20415      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
20416         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
20417      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
20418     Partial Public Class Product_JoinTableAdapter
20419         Inherits Global.System.ComponentModel.Component
20420         
20421         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
20422         
20423         Private _connection As Global.System.Data.SqlClient.SqlConnection
20424         
20425         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
20426         
20427         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
20428         
20429         Private _clearBeforeFill As Boolean
20430         
20431         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20432          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20433         Public Sub New()
20434             MyBase.New
20435             Me.ClearBeforeFill = true
20436         End Sub
20437         
20438         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20439          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20440         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
20441             Get
20442                 If (Me._adapter Is Nothing) Then
20443                     Me.InitAdapter
20444                 End If
20445                 Return Me._adapter
20446             End Get
20447         End Property
20448         
20449         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20450          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20451         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
20452             Get
20453                 If (Me._connection Is Nothing) Then
20454                     Me.InitConnection
20455                 End If
20456                 Return Me._connection
20457             End Get
20458             Set
20459                 Me._connection = value
20460                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
20461                     Me.Adapter.InsertCommand.Connection = value
20462                 End If
20463                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
20464                     Me.Adapter.DeleteCommand.Connection = value
20465                 End If
20466                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
20467                     Me.Adapter.UpdateCommand.Connection = value
20468                 End If
20469                 Dim i As Integer = 0
20470                 Do While (i < Me.CommandCollection.Length)
20471                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
20472                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
20473                     End If
20474                     i = (i + 1)
20475                 Loop
20476             End Set
20477         End Property
20478         
20479         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20480          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20481         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
20482             Get
20483                 Return Me._transaction
20484             End Get
20485             Set
20486                 Me._transaction = value
20487                 Dim i As Integer = 0
20488                 Do While (i < Me.CommandCollection.Length)
20489                     Me.CommandCollection(i).Transaction = Me._transaction
20490                     i = (i + 1)
20491                 Loop
20492                 If ((Not (Me.Adapter) Is Nothing) _
20493                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
20494                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
20495                 End If
20496                 If ((Not (Me.Adapter) Is Nothing) _
20497                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
20498                     Me.Adapter.InsertCommand.Transaction = Me._transaction
20499                 End If
20500                 If ((Not (Me.Adapter) Is Nothing) _
20501                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
20502                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
20503                 End If
20504             End Set
20505         End Property
20506         
20507         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20508          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20509         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
20510             Get
20511                 If (Me._commandCollection Is Nothing) Then
20512                     Me.InitCommandCollection
20513                 End If
20514                 Return Me._commandCollection
20515             End Get
20516         End Property
20517         
20518         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20519          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20520         Public Property ClearBeforeFill() As Boolean
20521             Get
20522                 Return Me._clearBeforeFill
20523             End Get
20524             Set
20525                 Me._clearBeforeFill = value
20526             End Set
20527         End Property
20528         
20529         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20530          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20531         Private Sub InitAdapter()
20532             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
20533             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
20534             tableMapping.SourceTable = "Table"
20535             tableMapping.DataSetTable = "Product_Join"
20536             tableMapping.ColumnMappings.Add("Id", "Id")
20537             tableMapping.ColumnMappings.Add("ProductID", "ProductID")
20538             tableMapping.ColumnMappings.Add("Photo", "Photo")
20539             Me._adapter.TableMappings.Add(tableMapping)
20540             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
20541             Me._adapter.DeleteCommand.Connection = Me.Connection
20542             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Product_Join] WHERE (([Id] = @Original_Id) AND ([ProductID] = "& _
20543                 "@Original_ProductID))"
20544             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
20545             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20546             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20547             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
20548             Me._adapter.InsertCommand.Connection = Me.Connection
20549             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Product_Join] ([ProductID], [Photo]) VALUES (@ProductID, @Phot"& _
20550                 "o);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, ProductID, Photo FROM Product_Join WHERE (Id = SCOPE_IDENTITY())"& _
20551                 ""
20552             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
20553             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20554             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Photo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Photo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20555             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
20556             Me._adapter.UpdateCommand.Connection = Me.Connection
20557             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Product_Join] SET [ProductID] = @ProductID, [Photo] = @Photo WHERE "& _
20558                 "(([Id] = @Original_Id) AND ([ProductID] = @Original_ProductID));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, Pro"& _
20559                 "ductID, Photo FROM Product_Join WHERE (Id = @Id)"
20560             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
20561             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20562             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Photo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Photo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20563             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20564             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20565             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20566         End Sub
20567         
20568         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20569          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20570         Private Sub InitConnection()
20571             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
20572             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
20573         End Sub
20574         
20575         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20576          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20577         Private Sub InitCommandCollection()
20578             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
20579             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
20580             Me._commandCollection(0).Connection = Me.Connection
20581             Me._commandCollection(0).CommandText = "SELECT Id, ProductID, Photo FROM dbo.Product_Join"
20582             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
20583         End Sub
20584         
20585         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20586          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20587          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20588          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
20589         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.Product_JoinDataTable) As Integer
20590             Me.Adapter.SelectCommand = Me.CommandCollection(0)
20591             If (Me.ClearBeforeFill = true) Then
20592                 dataTable.Clear
20593             End If
20594             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
20595             Return returnValue
20596         End Function
20597         
20598         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20599          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20600          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20601          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
20602         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.Product_JoinDataTable
20603             Me.Adapter.SelectCommand = Me.CommandCollection(0)
20604             Dim dataTable As SIS_DBDataSet2.Product_JoinDataTable = New SIS_DBDataSet2.Product_JoinDataTable()
20605             Me.Adapter.Fill(dataTable)
20606             Return dataTable
20607         End Function
20608         
20609         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20610          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20611          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
20612         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.Product_JoinDataTable) As Integer
20613             Return Me.Adapter.Update(dataTable)
20614         End Function
20615         
20616         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20617          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20618          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
20619         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
20620             Return Me.Adapter.Update(dataSet, "Product_Join")
20621         End Function
20622         
20623         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20624          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20625          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
20626         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
20627             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
20628         End Function
20629         
20630         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20631          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20632          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
20633         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
20634             Return Me.Adapter.Update(dataRows)
20635         End Function
20636         
20637         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20638          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20639          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20640          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
20641         Public Overloads Overridable Function Delete(ByVal Original_Id As Integer, ByVal Original_ProductID As Integer) As Integer
20642             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer)
20643             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ProductID,Integer)
20644             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
20645             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
20646                         <> Global.System.Data.ConnectionState.Open) Then
20647                 Me.Adapter.DeleteCommand.Connection.Open
20648             End If
20649             Try
20650                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
20651                 Return returnValue
20652             Finally
20653                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
20654                     Me.Adapter.DeleteCommand.Connection.Close
20655                 End If
20656             End Try
20657         End Function
20658         
20659         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20660          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20661          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20662          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
20663         Public Overloads Overridable Function Insert(ByVal ProductID As Integer, ByVal Photo() As Byte) As Integer
20664             Me.Adapter.InsertCommand.Parameters(0).Value = CType(ProductID,Integer)
20665             If (Photo Is Nothing) Then
20666                 Throw New Global.System.ArgumentNullException("Photo")
20667             Else
20668                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Photo,Byte())
20669             End If
20670             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
20671             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
20672                         <> Global.System.Data.ConnectionState.Open) Then
20673                 Me.Adapter.InsertCommand.Connection.Open
20674             End If
20675             Try
20676                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
20677                 Return returnValue
20678             Finally
20679                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
20680                     Me.Adapter.InsertCommand.Connection.Close
20681                 End If
20682             End Try
20683         End Function
20684         
20685         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20686          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20687          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20688          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
20689         Public Overloads Overridable Function Update(ByVal ProductID As Integer, ByVal Photo() As Byte, ByVal Original_Id As Integer, ByVal Original_ProductID As Integer, ByVal Id As Integer) As Integer
20690             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ProductID,Integer)
20691             If (Photo Is Nothing) Then
20692                 Throw New Global.System.ArgumentNullException("Photo")
20693             Else
20694                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Photo,Byte())
20695             End If
20696             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_Id,Integer)
20697             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_ProductID,Integer)
20698             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Id,Integer)
20699             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
20700             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
20701                         <> Global.System.Data.ConnectionState.Open) Then
20702                 Me.Adapter.UpdateCommand.Connection.Open
20703             End If
20704             Try
20705                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
20706                 Return returnValue
20707             Finally
20708                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
20709                     Me.Adapter.UpdateCommand.Connection.Close
20710                 End If
20711             End Try
20712         End Function
20713         
20714         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20715          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20716          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20717          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
20718         Public Overloads Overridable Function Update(ByVal ProductID As Integer, ByVal Photo() As Byte, ByVal Original_Id As Integer, ByVal Original_ProductID As Integer) As Integer
20719             Return Me.Update(ProductID, Photo, Original_Id, Original_ProductID, Original_Id)
20720         End Function
20721     End Class
20722     
20723     '''<summary>
20724     '''Represents the connection and commands used to retrieve and save data.
20725     '''</summary>
20726     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
20727      Global.System.ComponentModel.ToolboxItem(true), _
20728      Global.System.ComponentModel.DataObjectAttribute(true), _
20729      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
20730         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
20731      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
20732     Partial Public Class QuotationTableAdapter
20733         Inherits Global.System.ComponentModel.Component
20734         
20735         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
20736         
20737         Private _connection As Global.System.Data.SqlClient.SqlConnection
20738         
20739         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
20740         
20741         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
20742         
20743         Private _clearBeforeFill As Boolean
20744         
20745         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20746          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20747         Public Sub New()
20748             MyBase.New
20749             Me.ClearBeforeFill = true
20750         End Sub
20751         
20752         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20753          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20754         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
20755             Get
20756                 If (Me._adapter Is Nothing) Then
20757                     Me.InitAdapter
20758                 End If
20759                 Return Me._adapter
20760             End Get
20761         End Property
20762         
20763         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20764          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20765         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
20766             Get
20767                 If (Me._connection Is Nothing) Then
20768                     Me.InitConnection
20769                 End If
20770                 Return Me._connection
20771             End Get
20772             Set
20773                 Me._connection = value
20774                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
20775                     Me.Adapter.InsertCommand.Connection = value
20776                 End If
20777                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
20778                     Me.Adapter.DeleteCommand.Connection = value
20779                 End If
20780                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
20781                     Me.Adapter.UpdateCommand.Connection = value
20782                 End If
20783                 Dim i As Integer = 0
20784                 Do While (i < Me.CommandCollection.Length)
20785                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
20786                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
20787                     End If
20788                     i = (i + 1)
20789                 Loop
20790             End Set
20791         End Property
20792         
20793         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20794          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20795         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
20796             Get
20797                 Return Me._transaction
20798             End Get
20799             Set
20800                 Me._transaction = value
20801                 Dim i As Integer = 0
20802                 Do While (i < Me.CommandCollection.Length)
20803                     Me.CommandCollection(i).Transaction = Me._transaction
20804                     i = (i + 1)
20805                 Loop
20806                 If ((Not (Me.Adapter) Is Nothing) _
20807                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
20808                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
20809                 End If
20810                 If ((Not (Me.Adapter) Is Nothing) _
20811                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
20812                     Me.Adapter.InsertCommand.Transaction = Me._transaction
20813                 End If
20814                 If ((Not (Me.Adapter) Is Nothing) _
20815                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
20816                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
20817                 End If
20818             End Set
20819         End Property
20820         
20821         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20822          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20823         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
20824             Get
20825                 If (Me._commandCollection Is Nothing) Then
20826                     Me.InitCommandCollection
20827                 End If
20828                 Return Me._commandCollection
20829             End Get
20830         End Property
20831         
20832         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20833          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20834         Public Property ClearBeforeFill() As Boolean
20835             Get
20836                 Return Me._clearBeforeFill
20837             End Get
20838             Set
20839                 Me._clearBeforeFill = value
20840             End Set
20841         End Property
20842         
20843         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20844          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20845         Private Sub InitAdapter()
20846             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
20847             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
20848             tableMapping.SourceTable = "Table"
20849             tableMapping.DataSetTable = "Quotation"
20850             tableMapping.ColumnMappings.Add("Q_ID", "Q_ID")
20851             tableMapping.ColumnMappings.Add("QuotationNo", "QuotationNo")
20852             tableMapping.ColumnMappings.Add("Date", "Date")
20853             tableMapping.ColumnMappings.Add("CustomerID", "CustomerID")
20854             tableMapping.ColumnMappings.Add("GrandTotal", "GrandTotal")
20855             tableMapping.ColumnMappings.Add("Remarks", "Remarks")
20856             Me._adapter.TableMappings.Add(tableMapping)
20857             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
20858             Me._adapter.DeleteCommand.Connection = Me.Connection
20859             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Quotation] WHERE (([Q_ID] = @Original_Q_ID) AND ([QuotationNo]"& _
20860                 " = @Original_QuotationNo) AND ([Date] = @Original_Date) AND ([CustomerID] = @Ori"& _
20861                 "ginal_CustomerID) AND ([GrandTotal] = @Original_GrandTotal))"
20862             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
20863             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Q_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Q_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20864             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QuotationNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20865             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20866             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20867             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20868             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
20869             Me._adapter.InsertCommand.Connection = Me.Connection
20870             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Quotation] ([Q_ID], [QuotationNo], [Date], [CustomerID], [Gran"& _
20871                 "dTotal], [Remarks]) VALUES (@Q_ID, @QuotationNo, @Date, @CustomerID, @GrandTotal"& _
20872                 ", @Remarks);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Q_ID, QuotationNo, Date, CustomerID, GrandTotal, Remarks FR"& _
20873                 "OM Quotation WHERE (Q_ID = @Q_ID)"
20874             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
20875             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Q_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Q_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20876             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QuotationNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20877             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20878             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20879             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20880             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20881             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
20882             Me._adapter.UpdateCommand.Connection = Me.Connection
20883             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Quotation] SET [Q_ID] = @Q_ID, [QuotationNo] = @QuotationNo, [Date]"& _
20884                 " = @Date, [CustomerID] = @CustomerID, [GrandTotal] = @GrandTotal, [Remarks] = @R"& _
20885                 "emarks WHERE (([Q_ID] = @Original_Q_ID) AND ([QuotationNo] = @Original_Quotation"& _
20886                 "No) AND ([Date] = @Original_Date) AND ([CustomerID] = @Original_CustomerID) AND "& _
20887                 "([GrandTotal] = @Original_GrandTotal));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Q_ID, QuotationNo, Date, Custome"& _
20888                 "rID, GrandTotal, Remarks FROM Quotation WHERE (Q_ID = @Q_ID)"
20889             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
20890             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Q_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Q_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20891             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QuotationNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20892             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20893             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20894             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20895             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
20896             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Q_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Q_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20897             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QuotationNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20898             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20899             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20900             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
20901         End Sub
20902         
20903         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20904          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20905         Private Sub InitConnection()
20906             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
20907             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
20908         End Sub
20909         
20910         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20911          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20912         Private Sub InitCommandCollection()
20913             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
20914             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
20915             Me._commandCollection(0).Connection = Me.Connection
20916             Me._commandCollection(0).CommandText = "SELECT Q_ID, QuotationNo, Date, CustomerID, GrandTotal, Remarks FROM dbo.Quotatio"& _
20917                 "n"
20918             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
20919         End Sub
20920         
20921         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20922          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20923          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20924          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
20925         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.QuotationDataTable) As Integer
20926             Me.Adapter.SelectCommand = Me.CommandCollection(0)
20927             If (Me.ClearBeforeFill = true) Then
20928                 dataTable.Clear
20929             End If
20930             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
20931             Return returnValue
20932         End Function
20933         
20934         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20935          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20936          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20937          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
20938         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.QuotationDataTable
20939             Me.Adapter.SelectCommand = Me.CommandCollection(0)
20940             Dim dataTable As SIS_DBDataSet2.QuotationDataTable = New SIS_DBDataSet2.QuotationDataTable()
20941             Me.Adapter.Fill(dataTable)
20942             Return dataTable
20943         End Function
20944         
20945         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20946          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20947          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
20948         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.QuotationDataTable) As Integer
20949             Return Me.Adapter.Update(dataTable)
20950         End Function
20951         
20952         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20953          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20954          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
20955         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
20956             Return Me.Adapter.Update(dataSet, "Quotation")
20957         End Function
20958         
20959         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20960          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20961          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
20962         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
20963             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
20964         End Function
20965         
20966         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20967          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20968          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
20969         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
20970             Return Me.Adapter.Update(dataRows)
20971         End Function
20972         
20973         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20974          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
20975          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
20976          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
20977         Public Overloads Overridable Function Delete(ByVal Original_Q_ID As Integer, ByVal Original_QuotationNo As String, ByVal Original_Date As Date, ByVal Original_CustomerID As Integer, ByVal Original_GrandTotal As Decimal) As Integer
20978             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Q_ID,Integer)
20979             If (Original_QuotationNo Is Nothing) Then
20980                 Throw New Global.System.ArgumentNullException("Original_QuotationNo")
20981             Else
20982                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_QuotationNo,String)
20983             End If
20984             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Date,Date)
20985             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_CustomerID,Integer)
20986             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_GrandTotal,Decimal)
20987             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
20988             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
20989                         <> Global.System.Data.ConnectionState.Open) Then
20990                 Me.Adapter.DeleteCommand.Connection.Open
20991             End If
20992             Try
20993                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
20994                 Return returnValue
20995             Finally
20996                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
20997                     Me.Adapter.DeleteCommand.Connection.Close
20998                 End If
20999             End Try
21000         End Function
21001         
21002         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21003          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21004          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21005          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
21006         Public Overloads Overridable Function Insert(ByVal Q_ID As Integer, ByVal QuotationNo As String, ByVal _Date As Date, ByVal CustomerID As Integer, ByVal GrandTotal As Decimal, ByVal Remarks As String) As Integer
21007             Me.Adapter.InsertCommand.Parameters(0).Value = CType(Q_ID,Integer)
21008             If (QuotationNo Is Nothing) Then
21009                 Throw New Global.System.ArgumentNullException("QuotationNo")
21010             Else
21011                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(QuotationNo,String)
21012             End If
21013             Me.Adapter.InsertCommand.Parameters(2).Value = CType(_Date,Date)
21014             Me.Adapter.InsertCommand.Parameters(3).Value = CType(CustomerID,Integer)
21015             Me.Adapter.InsertCommand.Parameters(4).Value = CType(GrandTotal,Decimal)
21016             If (Remarks Is Nothing) Then
21017                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
21018             Else
21019                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(Remarks,String)
21020             End If
21021             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
21022             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
21023                         <> Global.System.Data.ConnectionState.Open) Then
21024                 Me.Adapter.InsertCommand.Connection.Open
21025             End If
21026             Try
21027                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
21028                 Return returnValue
21029             Finally
21030                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
21031                     Me.Adapter.InsertCommand.Connection.Close
21032                 End If
21033             End Try
21034         End Function
21035         
21036         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21037          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21038          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21039          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
21040         Public Overloads Overridable Function Update(ByVal Q_ID As Integer, ByVal QuotationNo As String, ByVal _Date As Date, ByVal CustomerID As Integer, ByVal GrandTotal As Decimal, ByVal Remarks As String, ByVal Original_Q_ID As Integer, ByVal Original_QuotationNo As String, ByVal Original_Date As Date, ByVal Original_CustomerID As Integer, ByVal Original_GrandTotal As Decimal) As Integer
21041             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Q_ID,Integer)
21042             If (QuotationNo Is Nothing) Then
21043                 Throw New Global.System.ArgumentNullException("QuotationNo")
21044             Else
21045                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(QuotationNo,String)
21046             End If
21047             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(_Date,Date)
21048             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CustomerID,Integer)
21049             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GrandTotal,Decimal)
21050             If (Remarks Is Nothing) Then
21051                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
21052             Else
21053                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Remarks,String)
21054             End If
21055             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Q_ID,Integer)
21056             If (Original_QuotationNo Is Nothing) Then
21057                 Throw New Global.System.ArgumentNullException("Original_QuotationNo")
21058             Else
21059                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_QuotationNo,String)
21060             End If
21061             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Date,Date)
21062             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_CustomerID,Integer)
21063             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GrandTotal,Decimal)
21064             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
21065             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
21066                         <> Global.System.Data.ConnectionState.Open) Then
21067                 Me.Adapter.UpdateCommand.Connection.Open
21068             End If
21069             Try
21070                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
21071                 Return returnValue
21072             Finally
21073                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
21074                     Me.Adapter.UpdateCommand.Connection.Close
21075                 End If
21076             End Try
21077         End Function
21078         
21079         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21080          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21081          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21082          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
21083         Public Overloads Overridable Function Update(ByVal QuotationNo As String, ByVal _Date As Date, ByVal CustomerID As Integer, ByVal GrandTotal As Decimal, ByVal Remarks As String, ByVal Original_Q_ID As Integer, ByVal Original_QuotationNo As String, ByVal Original_Date As Date, ByVal Original_CustomerID As Integer, ByVal Original_GrandTotal As Decimal) As Integer
21084             Return Me.Update(Original_Q_ID, QuotationNo, _Date, CustomerID, GrandTotal, Remarks, Original_Q_ID, Original_QuotationNo, Original_Date, Original_CustomerID, Original_GrandTotal)
21085         End Function
21086     End Class
21087     
21088     '''<summary>
21089     '''Represents the connection and commands used to retrieve and save data.
21090     '''</summary>
21091     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
21092      Global.System.ComponentModel.ToolboxItem(true), _
21093      Global.System.ComponentModel.DataObjectAttribute(true), _
21094      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
21095         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
21096      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
21097     Partial Public Class Quotation_JoinTableAdapter
21098         Inherits Global.System.ComponentModel.Component
21099         
21100         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
21101         
21102         Private _connection As Global.System.Data.SqlClient.SqlConnection
21103         
21104         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
21105         
21106         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
21107         
21108         Private _clearBeforeFill As Boolean
21109         
21110         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21111          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21112         Public Sub New()
21113             MyBase.New
21114             Me.ClearBeforeFill = true
21115         End Sub
21116         
21117         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21118          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21119         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
21120             Get
21121                 If (Me._adapter Is Nothing) Then
21122                     Me.InitAdapter
21123                 End If
21124                 Return Me._adapter
21125             End Get
21126         End Property
21127         
21128         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21129          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21130         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
21131             Get
21132                 If (Me._connection Is Nothing) Then
21133                     Me.InitConnection
21134                 End If
21135                 Return Me._connection
21136             End Get
21137             Set
21138                 Me._connection = value
21139                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
21140                     Me.Adapter.InsertCommand.Connection = value
21141                 End If
21142                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
21143                     Me.Adapter.DeleteCommand.Connection = value
21144                 End If
21145                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
21146                     Me.Adapter.UpdateCommand.Connection = value
21147                 End If
21148                 Dim i As Integer = 0
21149                 Do While (i < Me.CommandCollection.Length)
21150                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
21151                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
21152                     End If
21153                     i = (i + 1)
21154                 Loop
21155             End Set
21156         End Property
21157         
21158         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21159          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21160         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
21161             Get
21162                 Return Me._transaction
21163             End Get
21164             Set
21165                 Me._transaction = value
21166                 Dim i As Integer = 0
21167                 Do While (i < Me.CommandCollection.Length)
21168                     Me.CommandCollection(i).Transaction = Me._transaction
21169                     i = (i + 1)
21170                 Loop
21171                 If ((Not (Me.Adapter) Is Nothing) _
21172                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
21173                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
21174                 End If
21175                 If ((Not (Me.Adapter) Is Nothing) _
21176                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
21177                     Me.Adapter.InsertCommand.Transaction = Me._transaction
21178                 End If
21179                 If ((Not (Me.Adapter) Is Nothing) _
21180                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
21181                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
21182                 End If
21183             End Set
21184         End Property
21185         
21186         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21187          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21188         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
21189             Get
21190                 If (Me._commandCollection Is Nothing) Then
21191                     Me.InitCommandCollection
21192                 End If
21193                 Return Me._commandCollection
21194             End Get
21195         End Property
21196         
21197         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21198          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21199         Public Property ClearBeforeFill() As Boolean
21200             Get
21201                 Return Me._clearBeforeFill
21202             End Get
21203             Set
21204                 Me._clearBeforeFill = value
21205             End Set
21206         End Property
21207         
21208         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21209          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21210         Private Sub InitAdapter()
21211             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
21212             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
21213             tableMapping.SourceTable = "Table"
21214             tableMapping.DataSetTable = "Quotation_Join"
21215             tableMapping.ColumnMappings.Add("QJ_ID", "QJ_ID")
21216             tableMapping.ColumnMappings.Add("QuotationID", "QuotationID")
21217             tableMapping.ColumnMappings.Add("ProductID", "ProductID")
21218             tableMapping.ColumnMappings.Add("Cost", "Cost")
21219             tableMapping.ColumnMappings.Add("Qty", "Qty")
21220             tableMapping.ColumnMappings.Add("Amount", "Amount")
21221             tableMapping.ColumnMappings.Add("DiscountPer", "DiscountPer")
21222             tableMapping.ColumnMappings.Add("Discount", "Discount")
21223             tableMapping.ColumnMappings.Add("VATPer", "VATPer")
21224             tableMapping.ColumnMappings.Add("VAT", "VAT")
21225             tableMapping.ColumnMappings.Add("TotalAmount", "TotalAmount")
21226             Me._adapter.TableMappings.Add(tableMapping)
21227             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
21228             Me._adapter.DeleteCommand.Connection = Me.Connection
21229             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Quotation_Join] WHERE (([QJ_ID] = @Original_QJ_ID) AND ([Quota"& _
21230                 "tionID] = @Original_QuotationID) AND ([ProductID] = @Original_ProductID) AND ([C"& _
21231                 "ost] = @Original_Cost) AND ([Qty] = @Original_Qty) AND ([Amount] = @Original_Amo"& _
21232                 "unt) AND ([DiscountPer] = @Original_DiscountPer) AND ([Discount] = @Original_Dis"& _
21233                 "count) AND ([VATPer] = @Original_VATPer) AND ([VAT] = @Original_VAT) AND ([Total"& _
21234                 "Amount] = @Original_TotalAmount))"
21235             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
21236             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QJ_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QJ_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21237             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QuotationID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21238             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21239             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Cost", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Cost", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21240             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21241             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21242             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21243             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21244             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21245             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21246             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21247             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
21248             Me._adapter.InsertCommand.Connection = Me.Connection
21249             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Quotation_Join] ([QuotationID], [ProductID], [Cost], [Qty], [A"& _
21250                 "mount], [DiscountPer], [Discount], [VATPer], [VAT], [TotalAmount]) VALUES (@Quot"& _
21251                 "ationID, @ProductID, @Cost, @Qty, @Amount, @DiscountPer, @Discount, @VATPer, @VA"& _
21252                 "T, @TotalAmount);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT QJ_ID, QuotationID, ProductID, Cost, Qty, Amount, Disc"& _
21253                 "ountPer, Discount, VATPer, VAT, TotalAmount FROM Quotation_Join WHERE (QJ_ID = S"& _
21254                 "COPE_IDENTITY())"
21255             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
21256             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QuotationID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21257             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21258             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Cost", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Cost", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21259             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21260             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21261             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21262             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21263             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21264             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21265             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21266             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
21267             Me._adapter.UpdateCommand.Connection = Me.Connection
21268             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Quotation_Join] SET [QuotationID] = @QuotationID, [ProductID] = @Pr"& _
21269                 "oductID, [Cost] = @Cost, [Qty] = @Qty, [Amount] = @Amount, [DiscountPer] = @Disc"& _
21270                 "ountPer, [Discount] = @Discount, [VATPer] = @VATPer, [VAT] = @VAT, [TotalAmount]"& _
21271                 " = @TotalAmount WHERE (([QJ_ID] = @Original_QJ_ID) AND ([QuotationID] = @Origina"& _
21272                 "l_QuotationID) AND ([ProductID] = @Original_ProductID) AND ([Cost] = @Original_C"& _
21273                 "ost) AND ([Qty] = @Original_Qty) AND ([Amount] = @Original_Amount) AND ([Discoun"& _
21274                 "tPer] = @Original_DiscountPer) AND ([Discount] = @Original_Discount) AND ([VATPe"& _
21275                 "r] = @Original_VATPer) AND ([VAT] = @Original_VAT) AND ([TotalAmount] = @Origina"& _
21276                 "l_TotalAmount));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT QJ_ID, QuotationID, ProductID, Cost, Qty, Amount, Disco"& _
21277                 "untPer, Discount, VATPer, VAT, TotalAmount FROM Quotation_Join WHERE (QJ_ID = @Q"& _
21278                 "J_ID)"
21279             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
21280             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QuotationID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21281             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21282             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Cost", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Cost", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21283             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21284             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21285             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21286             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21287             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21288             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21289             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21290             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QJ_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QJ_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21291             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QuotationID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21292             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21293             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Cost", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Cost", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21294             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21295             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21296             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21297             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21298             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21299             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21300             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21301             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QJ_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "QJ_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21302         End Sub
21303         
21304         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21305          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21306         Private Sub InitConnection()
21307             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
21308             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
21309         End Sub
21310         
21311         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21312          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21313         Private Sub InitCommandCollection()
21314             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
21315             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
21316             Me._commandCollection(0).Connection = Me.Connection
21317             Me._commandCollection(0).CommandText = "SELECT QJ_ID, QuotationID, ProductID, Cost, Qty, Amount, DiscountPer, Discount, V"& _
21318                 "ATPer, VAT, TotalAmount FROM dbo.Quotation_Join"
21319             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
21320         End Sub
21321         
21322         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21323          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21324          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21325          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
21326         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.Quotation_JoinDataTable) As Integer
21327             Me.Adapter.SelectCommand = Me.CommandCollection(0)
21328             If (Me.ClearBeforeFill = true) Then
21329                 dataTable.Clear
21330             End If
21331             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
21332             Return returnValue
21333         End Function
21334         
21335         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21336          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21337          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21338          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
21339         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.Quotation_JoinDataTable
21340             Me.Adapter.SelectCommand = Me.CommandCollection(0)
21341             Dim dataTable As SIS_DBDataSet2.Quotation_JoinDataTable = New SIS_DBDataSet2.Quotation_JoinDataTable()
21342             Me.Adapter.Fill(dataTable)
21343             Return dataTable
21344         End Function
21345         
21346         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21347          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21348          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
21349         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.Quotation_JoinDataTable) As Integer
21350             Return Me.Adapter.Update(dataTable)
21351         End Function
21352         
21353         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21354          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21355          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
21356         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
21357             Return Me.Adapter.Update(dataSet, "Quotation_Join")
21358         End Function
21359         
21360         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21361          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21362          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
21363         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
21364             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
21365         End Function
21366         
21367         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21368          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21369          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
21370         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
21371             Return Me.Adapter.Update(dataRows)
21372         End Function
21373         
21374         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21375          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21376          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21377          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
21378         Public Overloads Overridable Function Delete(ByVal Original_QJ_ID As Integer, ByVal Original_QuotationID As Integer, ByVal Original_ProductID As Integer, ByVal Original_Cost As Decimal, ByVal Original_Qty As Integer, ByVal Original_Amount As Decimal, ByVal Original_DiscountPer As Decimal, ByVal Original_Discount As Decimal, ByVal Original_VATPer As Decimal, ByVal Original_VAT As Decimal, ByVal Original_TotalAmount As Decimal) As Integer
21379             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_QJ_ID,Integer)
21380             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_QuotationID,Integer)
21381             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ProductID,Integer)
21382             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Cost,Decimal)
21383             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Qty,Integer)
21384             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Amount,Decimal)
21385             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_DiscountPer,Decimal)
21386             Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_Discount,Decimal)
21387             Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_VATPer,Decimal)
21388             Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_VAT,Decimal)
21389             Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_TotalAmount,Decimal)
21390             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
21391             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
21392                         <> Global.System.Data.ConnectionState.Open) Then
21393                 Me.Adapter.DeleteCommand.Connection.Open
21394             End If
21395             Try
21396                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
21397                 Return returnValue
21398             Finally
21399                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
21400                     Me.Adapter.DeleteCommand.Connection.Close
21401                 End If
21402             End Try
21403         End Function
21404         
21405         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21406          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21407          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21408          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
21409         Public Overloads Overridable Function Insert(ByVal QuotationID As Integer, ByVal ProductID As Integer, ByVal Cost As Decimal, ByVal Qty As Integer, ByVal Amount As Decimal, ByVal DiscountPer As Decimal, ByVal Discount As Decimal, ByVal VATPer As Decimal, ByVal VAT As Decimal, ByVal TotalAmount As Decimal) As Integer
21410             Me.Adapter.InsertCommand.Parameters(0).Value = CType(QuotationID,Integer)
21411             Me.Adapter.InsertCommand.Parameters(1).Value = CType(ProductID,Integer)
21412             Me.Adapter.InsertCommand.Parameters(2).Value = CType(Cost,Decimal)
21413             Me.Adapter.InsertCommand.Parameters(3).Value = CType(Qty,Integer)
21414             Me.Adapter.InsertCommand.Parameters(4).Value = CType(Amount,Decimal)
21415             Me.Adapter.InsertCommand.Parameters(5).Value = CType(DiscountPer,Decimal)
21416             Me.Adapter.InsertCommand.Parameters(6).Value = CType(Discount,Decimal)
21417             Me.Adapter.InsertCommand.Parameters(7).Value = CType(VATPer,Decimal)
21418             Me.Adapter.InsertCommand.Parameters(8).Value = CType(VAT,Decimal)
21419             Me.Adapter.InsertCommand.Parameters(9).Value = CType(TotalAmount,Decimal)
21420             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
21421             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
21422                         <> Global.System.Data.ConnectionState.Open) Then
21423                 Me.Adapter.InsertCommand.Connection.Open
21424             End If
21425             Try
21426                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
21427                 Return returnValue
21428             Finally
21429                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
21430                     Me.Adapter.InsertCommand.Connection.Close
21431                 End If
21432             End Try
21433         End Function
21434         
21435         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21436          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21437          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21438          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
21439         Public Overloads Overridable Function Update( _
21440                     ByVal QuotationID As Integer, _
21441                     ByVal ProductID As Integer, _
21442                     ByVal Cost As Decimal, _
21443                     ByVal Qty As Integer, _
21444                     ByVal Amount As Decimal, _
21445                     ByVal DiscountPer As Decimal, _
21446                     ByVal Discount As Decimal, _
21447                     ByVal VATPer As Decimal, _
21448                     ByVal VAT As Decimal, _
21449                     ByVal TotalAmount As Decimal, _
21450                     ByVal Original_QJ_ID As Integer, _
21451                     ByVal Original_QuotationID As Integer, _
21452                     ByVal Original_ProductID As Integer, _
21453                     ByVal Original_Cost As Decimal, _
21454                     ByVal Original_Qty As Integer, _
21455                     ByVal Original_Amount As Decimal, _
21456                     ByVal Original_DiscountPer As Decimal, _
21457                     ByVal Original_Discount As Decimal, _
21458                     ByVal Original_VATPer As Decimal, _
21459                     ByVal Original_VAT As Decimal, _
21460                     ByVal Original_TotalAmount As Decimal, _
21461                     ByVal QJ_ID As Integer) As Integer
21462             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(QuotationID,Integer)
21463             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ProductID,Integer)
21464             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Cost,Decimal)
21465             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Qty,Integer)
21466             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Amount,Decimal)
21467             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(DiscountPer,Decimal)
21468             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Discount,Decimal)
21469             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(VATPer,Decimal)
21470             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(VAT,Decimal)
21471             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(TotalAmount,Decimal)
21472             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_QJ_ID,Integer)
21473             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_QuotationID,Integer)
21474             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ProductID,Integer)
21475             Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Cost,Decimal)
21476             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_Qty,Integer)
21477             Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Amount,Decimal)
21478             Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_DiscountPer,Decimal)
21479             Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Discount,Decimal)
21480             Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_VATPer,Decimal)
21481             Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_VAT,Decimal)
21482             Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_TotalAmount,Decimal)
21483             Me.Adapter.UpdateCommand.Parameters(21).Value = CType(QJ_ID,Integer)
21484             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
21485             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
21486                         <> Global.System.Data.ConnectionState.Open) Then
21487                 Me.Adapter.UpdateCommand.Connection.Open
21488             End If
21489             Try
21490                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
21491                 Return returnValue
21492             Finally
21493                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
21494                     Me.Adapter.UpdateCommand.Connection.Close
21495                 End If
21496             End Try
21497         End Function
21498         
21499         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21500          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21501          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21502          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
21503         Public Overloads Overridable Function Update( _
21504                     ByVal QuotationID As Integer, _
21505                     ByVal ProductID As Integer, _
21506                     ByVal Cost As Decimal, _
21507                     ByVal Qty As Integer, _
21508                     ByVal Amount As Decimal, _
21509                     ByVal DiscountPer As Decimal, _
21510                     ByVal Discount As Decimal, _
21511                     ByVal VATPer As Decimal, _
21512                     ByVal VAT As Decimal, _
21513                     ByVal TotalAmount As Decimal, _
21514                     ByVal Original_QJ_ID As Integer, _
21515                     ByVal Original_QuotationID As Integer, _
21516                     ByVal Original_ProductID As Integer, _
21517                     ByVal Original_Cost As Decimal, _
21518                     ByVal Original_Qty As Integer, _
21519                     ByVal Original_Amount As Decimal, _
21520                     ByVal Original_DiscountPer As Decimal, _
21521                     ByVal Original_Discount As Decimal, _
21522                     ByVal Original_VATPer As Decimal, _
21523                     ByVal Original_VAT As Decimal, _
21524                     ByVal Original_TotalAmount As Decimal) As Integer
21525             Return Me.Update(QuotationID, ProductID, Cost, Qty, Amount, DiscountPer, Discount, VATPer, VAT, TotalAmount, Original_QJ_ID, Original_QuotationID, Original_ProductID, Original_Cost, Original_Qty, Original_Amount, Original_DiscountPer, Original_Discount, Original_VATPer, Original_VAT, Original_TotalAmount, Original_QJ_ID)
21526         End Function
21527     End Class
21528     
21529     '''<summary>
21530     '''Represents the connection and commands used to retrieve and save data.
21531     '''</summary>
21532     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
21533      Global.System.ComponentModel.ToolboxItem(true), _
21534      Global.System.ComponentModel.DataObjectAttribute(true), _
21535      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
21536         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
21537      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
21538     Partial Public Class RegistrationTableAdapter
21539         Inherits Global.System.ComponentModel.Component
21540         
21541         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
21542         
21543         Private _connection As Global.System.Data.SqlClient.SqlConnection
21544         
21545         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
21546         
21547         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
21548         
21549         Private _clearBeforeFill As Boolean
21550         
21551         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21552          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21553         Public Sub New()
21554             MyBase.New
21555             Me.ClearBeforeFill = true
21556         End Sub
21557         
21558         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21559          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21560         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
21561             Get
21562                 If (Me._adapter Is Nothing) Then
21563                     Me.InitAdapter
21564                 End If
21565                 Return Me._adapter
21566             End Get
21567         End Property
21568         
21569         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21570          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21571         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
21572             Get
21573                 If (Me._connection Is Nothing) Then
21574                     Me.InitConnection
21575                 End If
21576                 Return Me._connection
21577             End Get
21578             Set
21579                 Me._connection = value
21580                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
21581                     Me.Adapter.InsertCommand.Connection = value
21582                 End If
21583                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
21584                     Me.Adapter.DeleteCommand.Connection = value
21585                 End If
21586                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
21587                     Me.Adapter.UpdateCommand.Connection = value
21588                 End If
21589                 Dim i As Integer = 0
21590                 Do While (i < Me.CommandCollection.Length)
21591                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
21592                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
21593                     End If
21594                     i = (i + 1)
21595                 Loop
21596             End Set
21597         End Property
21598         
21599         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21600          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21601         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
21602             Get
21603                 Return Me._transaction
21604             End Get
21605             Set
21606                 Me._transaction = value
21607                 Dim i As Integer = 0
21608                 Do While (i < Me.CommandCollection.Length)
21609                     Me.CommandCollection(i).Transaction = Me._transaction
21610                     i = (i + 1)
21611                 Loop
21612                 If ((Not (Me.Adapter) Is Nothing) _
21613                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
21614                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
21615                 End If
21616                 If ((Not (Me.Adapter) Is Nothing) _
21617                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
21618                     Me.Adapter.InsertCommand.Transaction = Me._transaction
21619                 End If
21620                 If ((Not (Me.Adapter) Is Nothing) _
21621                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
21622                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
21623                 End If
21624             End Set
21625         End Property
21626         
21627         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21628          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21629         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
21630             Get
21631                 If (Me._commandCollection Is Nothing) Then
21632                     Me.InitCommandCollection
21633                 End If
21634                 Return Me._commandCollection
21635             End Get
21636         End Property
21637         
21638         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21639          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21640         Public Property ClearBeforeFill() As Boolean
21641             Get
21642                 Return Me._clearBeforeFill
21643             End Get
21644             Set
21645                 Me._clearBeforeFill = value
21646             End Set
21647         End Property
21648         
21649         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21650          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21651         Private Sub InitAdapter()
21652             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
21653             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
21654             tableMapping.SourceTable = "Table"
21655             tableMapping.DataSetTable = "Registration"
21656             tableMapping.ColumnMappings.Add("UserID", "UserID")
21657             tableMapping.ColumnMappings.Add("UserType", "UserType")
21658             tableMapping.ColumnMappings.Add("Password", "Password")
21659             tableMapping.ColumnMappings.Add("Name", "Name")
21660             tableMapping.ColumnMappings.Add("ContactNo", "ContactNo")
21661             tableMapping.ColumnMappings.Add("EmailID", "EmailID")
21662             tableMapping.ColumnMappings.Add("JoiningDate", "JoiningDate")
21663             Me._adapter.TableMappings.Add(tableMapping)
21664             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
21665             Me._adapter.DeleteCommand.Connection = Me.Connection
21666             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Registration] WHERE (([UserID] = @Original_UserID) AND ([UserT"& _
21667                 "ype] = @Original_UserType) AND ([Password] = @Original_Password) AND ([Name] = @"& _
21668                 "Original_Name) AND ([ContactNo] = @Original_ContactNo) AND ((@IsNull_EmailID = 1"& _
21669                 " AND [EmailID] IS NULL) OR ([EmailID] = @Original_EmailID)) AND ((@IsNull_Joinin"& _
21670                 "gDate = 1 AND [JoiningDate] IS NULL) OR ([JoiningDate] = @Original_JoiningDate))"& _
21671                 ")"
21672             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
21673             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21674             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21675             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Password", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21676             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21677             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21678             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
21679             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21680             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_JoiningDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
21681             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21682             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
21683             Me._adapter.InsertCommand.Connection = Me.Connection
21684             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Registration] ([UserID], [UserType], [Password], [Name], [Cont"& _
21685                 "actNo], [EmailID], [JoiningDate]) VALUES (@UserID, @UserType, @Password, @Name, "& _
21686                 "@ContactNo, @EmailID, @JoiningDate);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UserID, UserType, Password, Name, C"& _
21687                 "ontactNo, EmailID, JoiningDate FROM Registration WHERE (UserID = @UserID)"
21688             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
21689             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21690             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21691             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Password", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21692             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21693             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21694             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21695             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21696             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
21697             Me._adapter.UpdateCommand.Connection = Me.Connection
21698             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Registration] SET [UserID] = @UserID, [UserType] = @UserType, [Pass"& _
21699                 "word] = @Password, [Name] = @Name, [ContactNo] = @ContactNo, [EmailID] = @EmailI"& _
21700                 "D, [JoiningDate] = @JoiningDate WHERE (([UserID] = @Original_UserID) AND ([UserT"& _
21701                 "ype] = @Original_UserType) AND ([Password] = @Original_Password) AND ([Name] = @"& _
21702                 "Original_Name) AND ([ContactNo] = @Original_ContactNo) AND ((@IsNull_EmailID = 1"& _
21703                 " AND [EmailID] IS NULL) OR ([EmailID] = @Original_EmailID)) AND ((@IsNull_Joinin"& _
21704                 "gDate = 1 AND [JoiningDate] IS NULL) OR ([JoiningDate] = @Original_JoiningDate))"& _
21705                 ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UserID, UserType, Password, Name, ContactNo, EmailID, JoiningDate FRO"& _
21706                 "M Registration WHERE (UserID = @UserID)"
21707             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
21708             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21709             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21710             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Password", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21711             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21712             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21713             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21714             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
21715             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21716             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21717             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Password", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21718             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21719             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21720             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
21721             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21722             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_JoiningDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
21723             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
21724         End Sub
21725         
21726         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21727          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21728         Private Sub InitConnection()
21729             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
21730             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
21731         End Sub
21732         
21733         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21734          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21735         Private Sub InitCommandCollection()
21736             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
21737             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
21738             Me._commandCollection(0).Connection = Me.Connection
21739             Me._commandCollection(0).CommandText = "SELECT UserID, UserType, Password, Name, ContactNo, EmailID, JoiningDate FROM dbo"& _
21740                 ".Registration"
21741             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
21742         End Sub
21743         
21744         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21745          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21746          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21747          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
21748         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.RegistrationDataTable) As Integer
21749             Me.Adapter.SelectCommand = Me.CommandCollection(0)
21750             If (Me.ClearBeforeFill = true) Then
21751                 dataTable.Clear
21752             End If
21753             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
21754             Return returnValue
21755         End Function
21756         
21757         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21758          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21759          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21760          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
21761         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.RegistrationDataTable
21762             Me.Adapter.SelectCommand = Me.CommandCollection(0)
21763             Dim dataTable As SIS_DBDataSet2.RegistrationDataTable = New SIS_DBDataSet2.RegistrationDataTable()
21764             Me.Adapter.Fill(dataTable)
21765             Return dataTable
21766         End Function
21767         
21768         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21769          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21770          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
21771         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.RegistrationDataTable) As Integer
21772             Return Me.Adapter.Update(dataTable)
21773         End Function
21774         
21775         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21776          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21777          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
21778         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
21779             Return Me.Adapter.Update(dataSet, "Registration")
21780         End Function
21781         
21782         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21783          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21784          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
21785         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
21786             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
21787         End Function
21788         
21789         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21790          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21791          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
21792         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
21793             Return Me.Adapter.Update(dataRows)
21794         End Function
21795         
21796         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21797          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21798          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21799          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
21800         Public Overloads Overridable Function Delete(ByVal Original_UserID As String, ByVal Original_UserType As String, ByVal Original_Password As String, ByVal Original_Name As String, ByVal Original_ContactNo As String, ByVal Original_EmailID As String, ByVal Original_JoiningDate As Global.System.Nullable(Of Date)) As Integer
21801             If (Original_UserID Is Nothing) Then
21802                 Throw New Global.System.ArgumentNullException("Original_UserID")
21803             Else
21804                 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UserID,String)
21805             End If
21806             If (Original_UserType Is Nothing) Then
21807                 Throw New Global.System.ArgumentNullException("Original_UserType")
21808             Else
21809                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_UserType,String)
21810             End If
21811             If (Original_Password Is Nothing) Then
21812                 Throw New Global.System.ArgumentNullException("Original_Password")
21813             Else
21814                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Password,String)
21815             End If
21816             If (Original_Name Is Nothing) Then
21817                 Throw New Global.System.ArgumentNullException("Original_Name")
21818             Else
21819                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Name,String)
21820             End If
21821             If (Original_ContactNo Is Nothing) Then
21822                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
21823             Else
21824                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ContactNo,String)
21825             End If
21826             If (Original_EmailID Is Nothing) Then
21827                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
21828                 Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
21829             Else
21830                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
21831                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_EmailID,String)
21832             End If
21833             If (Original_JoiningDate.HasValue = true) Then
21834                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
21835                 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_JoiningDate.Value,Date)
21836             Else
21837                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
21838                 Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
21839             End If
21840             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
21841             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
21842                         <> Global.System.Data.ConnectionState.Open) Then
21843                 Me.Adapter.DeleteCommand.Connection.Open
21844             End If
21845             Try
21846                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
21847                 Return returnValue
21848             Finally
21849                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
21850                     Me.Adapter.DeleteCommand.Connection.Close
21851                 End If
21852             End Try
21853         End Function
21854         
21855         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21856          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21857          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21858          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
21859         Public Overloads Overridable Function Insert(ByVal UserID As String, ByVal UserType As String, ByVal Password As String, ByVal Name As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal JoiningDate As Global.System.Nullable(Of Date)) As Integer
21860             If (UserID Is Nothing) Then
21861                 Throw New Global.System.ArgumentNullException("UserID")
21862             Else
21863                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(UserID,String)
21864             End If
21865             If (UserType Is Nothing) Then
21866                 Throw New Global.System.ArgumentNullException("UserType")
21867             Else
21868                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(UserType,String)
21869             End If
21870             If (Password Is Nothing) Then
21871                 Throw New Global.System.ArgumentNullException("Password")
21872             Else
21873                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Password,String)
21874             End If
21875             If (Name Is Nothing) Then
21876                 Throw New Global.System.ArgumentNullException("Name")
21877             Else
21878                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Name,String)
21879             End If
21880             If (ContactNo Is Nothing) Then
21881                 Throw New Global.System.ArgumentNullException("ContactNo")
21882             Else
21883                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(ContactNo,String)
21884             End If
21885             If (EmailID Is Nothing) Then
21886                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
21887             Else
21888                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(EmailID,String)
21889             End If
21890             If (JoiningDate.HasValue = true) Then
21891                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(JoiningDate.Value,Date)
21892             Else
21893                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
21894             End If
21895             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
21896             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
21897                         <> Global.System.Data.ConnectionState.Open) Then
21898                 Me.Adapter.InsertCommand.Connection.Open
21899             End If
21900             Try
21901                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
21902                 Return returnValue
21903             Finally
21904                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
21905                     Me.Adapter.InsertCommand.Connection.Close
21906                 End If
21907             End Try
21908         End Function
21909         
21910         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21911          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
21912          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
21913          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
21914         Public Overloads Overridable Function Update(ByVal UserID As String, ByVal UserType As String, ByVal Password As String, ByVal Name As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal JoiningDate As Global.System.Nullable(Of Date), ByVal Original_UserID As String, ByVal Original_UserType As String, ByVal Original_Password As String, ByVal Original_Name As String, ByVal Original_ContactNo As String, ByVal Original_EmailID As String, ByVal Original_JoiningDate As Global.System.Nullable(Of Date)) As Integer
21915             If (UserID Is Nothing) Then
21916                 Throw New Global.System.ArgumentNullException("UserID")
21917             Else
21918                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UserID,String)
21919             End If
21920             If (UserType Is Nothing) Then
21921                 Throw New Global.System.ArgumentNullException("UserType")
21922             Else
21923                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(UserType,String)
21924             End If
21925             If (Password Is Nothing) Then
21926                 Throw New Global.System.ArgumentNullException("Password")
21927             Else
21928                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Password,String)
21929             End If
21930             If (Name Is Nothing) Then
21931                 Throw New Global.System.ArgumentNullException("Name")
21932             Else
21933                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Name,String)
21934             End If
21935             If (ContactNo Is Nothing) Then
21936                 Throw New Global.System.ArgumentNullException("ContactNo")
21937             Else
21938                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ContactNo,String)
21939             End If
21940             If (EmailID Is Nothing) Then
21941                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
21942             Else
21943                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(EmailID,String)
21944             End If
21945             If (JoiningDate.HasValue = true) Then
21946                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(JoiningDate.Value,Date)
21947             Else
21948                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
21949             End If
21950             If (Original_UserID Is Nothing) Then
21951                 Throw New Global.System.ArgumentNullException("Original_UserID")
21952             Else
21953                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_UserID,String)
21954             End If
21955             If (Original_UserType Is Nothing) Then
21956                 Throw New Global.System.ArgumentNullException("Original_UserType")
21957             Else
21958                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_UserType,String)
21959             End If
21960             If (Original_Password Is Nothing) Then
21961                 Throw New Global.System.ArgumentNullException("Original_Password")
21962             Else
21963                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Password,String)
21964             End If
21965             If (Original_Name Is Nothing) Then
21966                 Throw New Global.System.ArgumentNullException("Original_Name")
21967             Else
21968                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Name,String)
21969             End If
21970             If (Original_ContactNo Is Nothing) Then
21971                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
21972             Else
21973                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ContactNo,String)
21974             End If
21975             If (Original_EmailID Is Nothing) Then
21976                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
21977                 Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
21978             Else
21979                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
21980                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_EmailID,String)
21981             End If
21982             If (Original_JoiningDate.HasValue = true) Then
21983                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
21984                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_JoiningDate.Value,Date)
21985             Else
21986                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
21987                 Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
21988             End If
21989             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
21990             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
21991                         <> Global.System.Data.ConnectionState.Open) Then
21992                 Me.Adapter.UpdateCommand.Connection.Open
21993             End If
21994             Try
21995                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
21996                 Return returnValue
21997             Finally
21998                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
21999                     Me.Adapter.UpdateCommand.Connection.Close
22000                 End If
22001             End Try
22002         End Function
22003         
22004         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22005          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22006          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22007          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
22008         Public Overloads Overridable Function Update(ByVal UserType As String, ByVal Password As String, ByVal Name As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal JoiningDate As Global.System.Nullable(Of Date), ByVal Original_UserID As String, ByVal Original_UserType As String, ByVal Original_Password As String, ByVal Original_Name As String, ByVal Original_ContactNo As String, ByVal Original_EmailID As String, ByVal Original_JoiningDate As Global.System.Nullable(Of Date)) As Integer
22009             Return Me.Update(Original_UserID, UserType, Password, Name, ContactNo, EmailID, JoiningDate, Original_UserID, Original_UserType, Original_Password, Original_Name, Original_ContactNo, Original_EmailID, Original_JoiningDate)
22010         End Function
22011     End Class
22012     
22013     '''<summary>
22014     '''Represents the connection and commands used to retrieve and save data.
22015     '''</summary>
22016     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
22017      Global.System.ComponentModel.ToolboxItem(true), _
22018      Global.System.ComponentModel.DataObjectAttribute(true), _
22019      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
22020         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
22021      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
22022     Partial Public Class ServiceTableAdapter
22023         Inherits Global.System.ComponentModel.Component
22024         
22025         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
22026         
22027         Private _connection As Global.System.Data.SqlClient.SqlConnection
22028         
22029         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
22030         
22031         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
22032         
22033         Private _clearBeforeFill As Boolean
22034         
22035         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22036          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22037         Public Sub New()
22038             MyBase.New
22039             Me.ClearBeforeFill = true
22040         End Sub
22041         
22042         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22043          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22044         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
22045             Get
22046                 If (Me._adapter Is Nothing) Then
22047                     Me.InitAdapter
22048                 End If
22049                 Return Me._adapter
22050             End Get
22051         End Property
22052         
22053         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22054          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22055         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
22056             Get
22057                 If (Me._connection Is Nothing) Then
22058                     Me.InitConnection
22059                 End If
22060                 Return Me._connection
22061             End Get
22062             Set
22063                 Me._connection = value
22064                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
22065                     Me.Adapter.InsertCommand.Connection = value
22066                 End If
22067                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
22068                     Me.Adapter.DeleteCommand.Connection = value
22069                 End If
22070                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
22071                     Me.Adapter.UpdateCommand.Connection = value
22072                 End If
22073                 Dim i As Integer = 0
22074                 Do While (i < Me.CommandCollection.Length)
22075                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
22076                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
22077                     End If
22078                     i = (i + 1)
22079                 Loop
22080             End Set
22081         End Property
22082         
22083         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22084          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22085         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
22086             Get
22087                 Return Me._transaction
22088             End Get
22089             Set
22090                 Me._transaction = value
22091                 Dim i As Integer = 0
22092                 Do While (i < Me.CommandCollection.Length)
22093                     Me.CommandCollection(i).Transaction = Me._transaction
22094                     i = (i + 1)
22095                 Loop
22096                 If ((Not (Me.Adapter) Is Nothing) _
22097                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
22098                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
22099                 End If
22100                 If ((Not (Me.Adapter) Is Nothing) _
22101                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
22102                     Me.Adapter.InsertCommand.Transaction = Me._transaction
22103                 End If
22104                 If ((Not (Me.Adapter) Is Nothing) _
22105                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
22106                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
22107                 End If
22108             End Set
22109         End Property
22110         
22111         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22112          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22113         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
22114             Get
22115                 If (Me._commandCollection Is Nothing) Then
22116                     Me.InitCommandCollection
22117                 End If
22118                 Return Me._commandCollection
22119             End Get
22120         End Property
22121         
22122         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22123          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22124         Public Property ClearBeforeFill() As Boolean
22125             Get
22126                 Return Me._clearBeforeFill
22127             End Get
22128             Set
22129                 Me._clearBeforeFill = value
22130             End Set
22131         End Property
22132         
22133         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22134          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22135         Private Sub InitAdapter()
22136             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
22137             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
22138             tableMapping.SourceTable = "Table"
22139             tableMapping.DataSetTable = "Service"
22140             tableMapping.ColumnMappings.Add("S_ID", "S_ID")
22141             tableMapping.ColumnMappings.Add("ServiceCode", "ServiceCode")
22142             tableMapping.ColumnMappings.Add("CustomerID", "CustomerID")
22143             tableMapping.ColumnMappings.Add("ServiceType", "ServiceType")
22144             tableMapping.ColumnMappings.Add("ServiceCreationDate", "ServiceCreationDate")
22145             tableMapping.ColumnMappings.Add("ItemDescription", "ItemDescription")
22146             tableMapping.ColumnMappings.Add("ProblemDescription", "ProblemDescription")
22147             tableMapping.ColumnMappings.Add("ChargesQuote", "ChargesQuote")
22148             tableMapping.ColumnMappings.Add("AdvanceDeposit", "AdvanceDeposit")
22149             tableMapping.ColumnMappings.Add("EstimatedRepairDate", "EstimatedRepairDate")
22150             tableMapping.ColumnMappings.Add("Remarks", "Remarks")
22151             tableMapping.ColumnMappings.Add("Status", "Status")
22152             Me._adapter.TableMappings.Add(tableMapping)
22153             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
22154             Me._adapter.DeleteCommand.Connection = Me.Connection
22155             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Service] WHERE (([S_ID] = @Original_S_ID) AND ([ServiceCode] ="& _
22156                 " @Original_ServiceCode) AND ([CustomerID] = @Original_CustomerID) AND ((@IsNull_"& _
22157                 "ServiceType = 1 AND [ServiceType] IS NULL) OR ([ServiceType] = @Original_Service"& _
22158                 "Type)) AND ([ServiceCreationDate] = @Original_ServiceCreationDate) AND ([Charges"& _
22159                 "Quote] = @Original_ChargesQuote) AND ([AdvanceDeposit] = @Original_AdvanceDeposi"& _
22160                 "t) AND ([EstimatedRepairDate] = @Original_EstimatedRepairDate) AND ([Status] = @"& _
22161                 "Original_Status))"
22162             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
22163             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_S_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22164             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22165             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22166             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ServiceType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
22167             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22168             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceCreationDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCreationDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22169             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ChargesQuote", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ChargesQuote", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22170             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdvanceDeposit", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "AdvanceDeposit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22171             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EstimatedRepairDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstimatedRepairDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22172             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22173             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
22174             Me._adapter.InsertCommand.Connection = Me.Connection
22175             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Service] ([S_ID], [ServiceCode], [CustomerID], [ServiceType], "& _
22176                 "[ServiceCreationDate], [ItemDescription], [ProblemDescription], [ChargesQuote], "& _
22177                 "[AdvanceDeposit], [EstimatedRepairDate], [Remarks], [Status]) VALUES (@S_ID, @Se"& _
22178                 "rviceCode, @CustomerID, @ServiceType, @ServiceCreationDate, @ItemDescription, @P"& _
22179                 "roblemDescription, @ChargesQuote, @AdvanceDeposit, @EstimatedRepairDate, @Remark"& _
22180                 "s, @Status);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT S_ID, ServiceCode, CustomerID, ServiceType, ServiceCreation"& _
22181                 "Date, ItemDescription, ProblemDescription, ChargesQuote, AdvanceDeposit, Estimat"& _
22182                 "edRepairDate, Remarks, Status FROM Service WHERE (S_ID = @S_ID)"
22183             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
22184             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@S_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22185             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22186             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22187             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22188             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceCreationDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCreationDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22189             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ItemDescription", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemDescription", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22190             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProblemDescription", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProblemDescription", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22191             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ChargesQuote", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ChargesQuote", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22192             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdvanceDeposit", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "AdvanceDeposit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22193             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EstimatedRepairDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstimatedRepairDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22194             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22195             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22196             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
22197             Me._adapter.UpdateCommand.Connection = Me.Connection
22198             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Service] SET [S_ID] = @S_ID, [ServiceCode] = @ServiceCode, [Custome"& _
22199                 "rID] = @CustomerID, [ServiceType] = @ServiceType, [ServiceCreationDate] = @Servi"& _
22200                 "ceCreationDate, [ItemDescription] = @ItemDescription, [ProblemDescription] = @Pr"& _
22201                 "oblemDescription, [ChargesQuote] = @ChargesQuote, [AdvanceDeposit] = @AdvanceDep"& _
22202                 "osit, [EstimatedRepairDate] = @EstimatedRepairDate, [Remarks] = @Remarks, [Statu"& _
22203                 "s] = @Status WHERE (([S_ID] = @Original_S_ID) AND ([ServiceCode] = @Original_Ser"& _
22204                 "viceCode) AND ([CustomerID] = @Original_CustomerID) AND ((@IsNull_ServiceType = "& _
22205                 "1 AND [ServiceType] IS NULL) OR ([ServiceType] = @Original_ServiceType)) AND ([S"& _
22206                 "erviceCreationDate] = @Original_ServiceCreationDate) AND ([ChargesQuote] = @Orig"& _
22207                 "inal_ChargesQuote) AND ([AdvanceDeposit] = @Original_AdvanceDeposit) AND ([Estim"& _
22208                 "atedRepairDate] = @Original_EstimatedRepairDate) AND ([Status] = @Original_Statu"& _
22209                 "s));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT S_ID, ServiceCode, CustomerID, ServiceType, ServiceCreationDate, It"& _
22210                 "emDescription, ProblemDescription, ChargesQuote, AdvanceDeposit, EstimatedRepair"& _
22211                 "Date, Remarks, Status FROM Service WHERE (S_ID = @S_ID)"
22212             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
22213             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@S_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22214             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22215             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22216             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22217             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceCreationDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCreationDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22218             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ItemDescription", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemDescription", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22219             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProblemDescription", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProblemDescription", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22220             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ChargesQuote", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ChargesQuote", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22221             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdvanceDeposit", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "AdvanceDeposit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22222             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EstimatedRepairDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstimatedRepairDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22223             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22224             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22225             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_S_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22226             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22227             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22228             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ServiceType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
22229             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22230             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceCreationDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCreationDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22231             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ChargesQuote", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ChargesQuote", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22232             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdvanceDeposit", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "AdvanceDeposit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22233             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EstimatedRepairDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstimatedRepairDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22234             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22235         End Sub
22236         
22237         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22238          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22239         Private Sub InitConnection()
22240             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
22241             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
22242         End Sub
22243         
22244         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22245          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22246         Private Sub InitCommandCollection()
22247             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
22248             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
22249             Me._commandCollection(0).Connection = Me.Connection
22250             Me._commandCollection(0).CommandText = "SELECT S_ID, ServiceCode, CustomerID, ServiceType, ServiceCreationDate, ItemDescr"& _
22251                 "iption, ProblemDescription, ChargesQuote, AdvanceDeposit, EstimatedRepairDate, R"& _
22252                 "emarks, Status FROM dbo.Service"
22253             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
22254         End Sub
22255         
22256         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22257          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22258          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22259          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
22260         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.ServiceDataTable) As Integer
22261             Me.Adapter.SelectCommand = Me.CommandCollection(0)
22262             If (Me.ClearBeforeFill = true) Then
22263                 dataTable.Clear
22264             End If
22265             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
22266             Return returnValue
22267         End Function
22268         
22269         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22270          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22271          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22272          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
22273         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.ServiceDataTable
22274             Me.Adapter.SelectCommand = Me.CommandCollection(0)
22275             Dim dataTable As SIS_DBDataSet2.ServiceDataTable = New SIS_DBDataSet2.ServiceDataTable()
22276             Me.Adapter.Fill(dataTable)
22277             Return dataTable
22278         End Function
22279         
22280         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22281          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22282          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
22283         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.ServiceDataTable) As Integer
22284             Return Me.Adapter.Update(dataTable)
22285         End Function
22286         
22287         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22288          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22289          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
22290         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
22291             Return Me.Adapter.Update(dataSet, "Service")
22292         End Function
22293         
22294         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22295          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22296          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
22297         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
22298             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
22299         End Function
22300         
22301         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22302          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22303          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
22304         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
22305             Return Me.Adapter.Update(dataRows)
22306         End Function
22307         
22308         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22309          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22310          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22311          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
22312         Public Overloads Overridable Function Delete(ByVal Original_S_ID As Integer, ByVal Original_ServiceCode As String, ByVal Original_CustomerID As Integer, ByVal Original_ServiceType As String, ByVal Original_ServiceCreationDate As Date, ByVal Original_ChargesQuote As Decimal, ByVal Original_AdvanceDeposit As Decimal, ByVal Original_EstimatedRepairDate As Date, ByVal Original_Status As String) As Integer
22313             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_S_ID,Integer)
22314             If (Original_ServiceCode Is Nothing) Then
22315                 Throw New Global.System.ArgumentNullException("Original_ServiceCode")
22316             Else
22317                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ServiceCode,String)
22318             End If
22319             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CustomerID,Integer)
22320             If (Original_ServiceType Is Nothing) Then
22321                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
22322                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
22323             Else
22324                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
22325                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ServiceType,String)
22326             End If
22327             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ServiceCreationDate,Date)
22328             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ChargesQuote,Decimal)
22329             Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_AdvanceDeposit,Decimal)
22330             Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_EstimatedRepairDate,Date)
22331             If (Original_Status Is Nothing) Then
22332                 Throw New Global.System.ArgumentNullException("Original_Status")
22333             Else
22334                 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_Status,String)
22335             End If
22336             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
22337             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
22338                         <> Global.System.Data.ConnectionState.Open) Then
22339                 Me.Adapter.DeleteCommand.Connection.Open
22340             End If
22341             Try
22342                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
22343                 Return returnValue
22344             Finally
22345                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
22346                     Me.Adapter.DeleteCommand.Connection.Close
22347                 End If
22348             End Try
22349         End Function
22350         
22351         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22352          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22353          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22354          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
22355         Public Overloads Overridable Function Insert(ByVal S_ID As Integer, ByVal ServiceCode As String, ByVal CustomerID As Integer, ByVal ServiceType As String, ByVal ServiceCreationDate As Date, ByVal ItemDescription As String, ByVal ProblemDescription As String, ByVal ChargesQuote As Decimal, ByVal AdvanceDeposit As Decimal, ByVal EstimatedRepairDate As Date, ByVal Remarks As String, ByVal Status As String) As Integer
22356             Me.Adapter.InsertCommand.Parameters(0).Value = CType(S_ID,Integer)
22357             If (ServiceCode Is Nothing) Then
22358                 Throw New Global.System.ArgumentNullException("ServiceCode")
22359             Else
22360                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(ServiceCode,String)
22361             End If
22362             Me.Adapter.InsertCommand.Parameters(2).Value = CType(CustomerID,Integer)
22363             If (ServiceType Is Nothing) Then
22364                 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
22365             Else
22366                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(ServiceType,String)
22367             End If
22368             Me.Adapter.InsertCommand.Parameters(4).Value = CType(ServiceCreationDate,Date)
22369             If (ItemDescription Is Nothing) Then
22370                 Throw New Global.System.ArgumentNullException("ItemDescription")
22371             Else
22372                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(ItemDescription,String)
22373             End If
22374             If (ProblemDescription Is Nothing) Then
22375                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
22376             Else
22377                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(ProblemDescription,String)
22378             End If
22379             Me.Adapter.InsertCommand.Parameters(7).Value = CType(ChargesQuote,Decimal)
22380             Me.Adapter.InsertCommand.Parameters(8).Value = CType(AdvanceDeposit,Decimal)
22381             Me.Adapter.InsertCommand.Parameters(9).Value = CType(EstimatedRepairDate,Date)
22382             If (Remarks Is Nothing) Then
22383                 Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value
22384             Else
22385                 Me.Adapter.InsertCommand.Parameters(10).Value = CType(Remarks,String)
22386             End If
22387             If (Status Is Nothing) Then
22388                 Throw New Global.System.ArgumentNullException("Status")
22389             Else
22390                 Me.Adapter.InsertCommand.Parameters(11).Value = CType(Status,String)
22391             End If
22392             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
22393             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
22394                         <> Global.System.Data.ConnectionState.Open) Then
22395                 Me.Adapter.InsertCommand.Connection.Open
22396             End If
22397             Try
22398                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
22399                 Return returnValue
22400             Finally
22401                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
22402                     Me.Adapter.InsertCommand.Connection.Close
22403                 End If
22404             End Try
22405         End Function
22406         
22407         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22408          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22409          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22410          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
22411         Public Overloads Overridable Function Update( _
22412                     ByVal S_ID As Integer, _
22413                     ByVal ServiceCode As String, _
22414                     ByVal CustomerID As Integer, _
22415                     ByVal ServiceType As String, _
22416                     ByVal ServiceCreationDate As Date, _
22417                     ByVal ItemDescription As String, _
22418                     ByVal ProblemDescription As String, _
22419                     ByVal ChargesQuote As Decimal, _
22420                     ByVal AdvanceDeposit As Decimal, _
22421                     ByVal EstimatedRepairDate As Date, _
22422                     ByVal Remarks As String, _
22423                     ByVal Status As String, _
22424                     ByVal Original_S_ID As Integer, _
22425                     ByVal Original_ServiceCode As String, _
22426                     ByVal Original_CustomerID As Integer, _
22427                     ByVal Original_ServiceType As String, _
22428                     ByVal Original_ServiceCreationDate As Date, _
22429                     ByVal Original_ChargesQuote As Decimal, _
22430                     ByVal Original_AdvanceDeposit As Decimal, _
22431                     ByVal Original_EstimatedRepairDate As Date, _
22432                     ByVal Original_Status As String) As Integer
22433             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(S_ID,Integer)
22434             If (ServiceCode Is Nothing) Then
22435                 Throw New Global.System.ArgumentNullException("ServiceCode")
22436             Else
22437                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ServiceCode,String)
22438             End If
22439             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CustomerID,Integer)
22440             If (ServiceType Is Nothing) Then
22441                 Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
22442             Else
22443                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ServiceType,String)
22444             End If
22445             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ServiceCreationDate,Date)
22446             If (ItemDescription Is Nothing) Then
22447                 Throw New Global.System.ArgumentNullException("ItemDescription")
22448             Else
22449                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ItemDescription,String)
22450             End If
22451             If (ProblemDescription Is Nothing) Then
22452                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
22453             Else
22454                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ProblemDescription,String)
22455             End If
22456             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ChargesQuote,Decimal)
22457             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(AdvanceDeposit,Decimal)
22458             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(EstimatedRepairDate,Date)
22459             If (Remarks Is Nothing) Then
22460                 Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
22461             Else
22462                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Remarks,String)
22463             End If
22464             If (Status Is Nothing) Then
22465                 Throw New Global.System.ArgumentNullException("Status")
22466             Else
22467                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Status,String)
22468             End If
22469             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_S_ID,Integer)
22470             If (Original_ServiceCode Is Nothing) Then
22471                 Throw New Global.System.ArgumentNullException("Original_ServiceCode")
22472             Else
22473                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ServiceCode,String)
22474             End If
22475             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_CustomerID,Integer)
22476             If (Original_ServiceType Is Nothing) Then
22477                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object)
22478                 Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
22479             Else
22480                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object)
22481                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ServiceType,String)
22482             End If
22483             Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ServiceCreationDate,Date)
22484             Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ChargesQuote,Decimal)
22485             Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_AdvanceDeposit,Decimal)
22486             Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_EstimatedRepairDate,Date)
22487             If (Original_Status Is Nothing) Then
22488                 Throw New Global.System.ArgumentNullException("Original_Status")
22489             Else
22490                 Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_Status,String)
22491             End If
22492             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
22493             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
22494                         <> Global.System.Data.ConnectionState.Open) Then
22495                 Me.Adapter.UpdateCommand.Connection.Open
22496             End If
22497             Try
22498                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
22499                 Return returnValue
22500             Finally
22501                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
22502                     Me.Adapter.UpdateCommand.Connection.Close
22503                 End If
22504             End Try
22505         End Function
22506         
22507         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22508          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22509          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22510          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
22511         Public Overloads Overridable Function Update( _
22512                     ByVal ServiceCode As String, _
22513                     ByVal CustomerID As Integer, _
22514                     ByVal ServiceType As String, _
22515                     ByVal ServiceCreationDate As Date, _
22516                     ByVal ItemDescription As String, _
22517                     ByVal ProblemDescription As String, _
22518                     ByVal ChargesQuote As Decimal, _
22519                     ByVal AdvanceDeposit As Decimal, _
22520                     ByVal EstimatedRepairDate As Date, _
22521                     ByVal Remarks As String, _
22522                     ByVal Status As String, _
22523                     ByVal Original_S_ID As Integer, _
22524                     ByVal Original_ServiceCode As String, _
22525                     ByVal Original_CustomerID As Integer, _
22526                     ByVal Original_ServiceType As String, _
22527                     ByVal Original_ServiceCreationDate As Date, _
22528                     ByVal Original_ChargesQuote As Decimal, _
22529                     ByVal Original_AdvanceDeposit As Decimal, _
22530                     ByVal Original_EstimatedRepairDate As Date, _
22531                     ByVal Original_Status As String) As Integer
22532             Return Me.Update(Original_S_ID, ServiceCode, CustomerID, ServiceType, ServiceCreationDate, ItemDescription, ProblemDescription, ChargesQuote, AdvanceDeposit, EstimatedRepairDate, Remarks, Status, Original_S_ID, Original_ServiceCode, Original_CustomerID, Original_ServiceType, Original_ServiceCreationDate, Original_ChargesQuote, Original_AdvanceDeposit, Original_EstimatedRepairDate, Original_Status)
22533         End Function
22534     End Class
22535     
22536     '''<summary>
22537     '''Represents the connection and commands used to retrieve and save data.
22538     '''</summary>
22539     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
22540      Global.System.ComponentModel.ToolboxItem(true), _
22541      Global.System.ComponentModel.DataObjectAttribute(true), _
22542      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
22543         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
22544      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
22545     Partial Public Class SMSSettingTableAdapter
22546         Inherits Global.System.ComponentModel.Component
22547         
22548         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
22549         
22550         Private _connection As Global.System.Data.SqlClient.SqlConnection
22551         
22552         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
22553         
22554         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
22555         
22556         Private _clearBeforeFill As Boolean
22557         
22558         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22559          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22560         Public Sub New()
22561             MyBase.New
22562             Me.ClearBeforeFill = true
22563         End Sub
22564         
22565         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22566          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22567         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
22568             Get
22569                 If (Me._adapter Is Nothing) Then
22570                     Me.InitAdapter
22571                 End If
22572                 Return Me._adapter
22573             End Get
22574         End Property
22575         
22576         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22577          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22578         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
22579             Get
22580                 If (Me._connection Is Nothing) Then
22581                     Me.InitConnection
22582                 End If
22583                 Return Me._connection
22584             End Get
22585             Set
22586                 Me._connection = value
22587                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
22588                     Me.Adapter.InsertCommand.Connection = value
22589                 End If
22590                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
22591                     Me.Adapter.DeleteCommand.Connection = value
22592                 End If
22593                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
22594                     Me.Adapter.UpdateCommand.Connection = value
22595                 End If
22596                 Dim i As Integer = 0
22597                 Do While (i < Me.CommandCollection.Length)
22598                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
22599                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
22600                     End If
22601                     i = (i + 1)
22602                 Loop
22603             End Set
22604         End Property
22605         
22606         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22607          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22608         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
22609             Get
22610                 Return Me._transaction
22611             End Get
22612             Set
22613                 Me._transaction = value
22614                 Dim i As Integer = 0
22615                 Do While (i < Me.CommandCollection.Length)
22616                     Me.CommandCollection(i).Transaction = Me._transaction
22617                     i = (i + 1)
22618                 Loop
22619                 If ((Not (Me.Adapter) Is Nothing) _
22620                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
22621                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
22622                 End If
22623                 If ((Not (Me.Adapter) Is Nothing) _
22624                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
22625                     Me.Adapter.InsertCommand.Transaction = Me._transaction
22626                 End If
22627                 If ((Not (Me.Adapter) Is Nothing) _
22628                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
22629                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
22630                 End If
22631             End Set
22632         End Property
22633         
22634         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22635          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22636         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
22637             Get
22638                 If (Me._commandCollection Is Nothing) Then
22639                     Me.InitCommandCollection
22640                 End If
22641                 Return Me._commandCollection
22642             End Get
22643         End Property
22644         
22645         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22646          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22647         Public Property ClearBeforeFill() As Boolean
22648             Get
22649                 Return Me._clearBeforeFill
22650             End Get
22651             Set
22652                 Me._clearBeforeFill = value
22653             End Set
22654         End Property
22655         
22656         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22657          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22658         Private Sub InitAdapter()
22659             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
22660             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
22661             tableMapping.SourceTable = "Table"
22662             tableMapping.DataSetTable = "SMSSetting"
22663             tableMapping.ColumnMappings.Add("Id", "Id")
22664             tableMapping.ColumnMappings.Add("APIUrl", "APIUrl")
22665             tableMapping.ColumnMappings.Add("IsDefault", "IsDefault")
22666             tableMapping.ColumnMappings.Add("IsEnabled", "IsEnabled")
22667             Me._adapter.TableMappings.Add(tableMapping)
22668             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
22669             Me._adapter.DeleteCommand.Connection = Me.Connection
22670             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[SMSSetting] WHERE (([Id] = @Original_Id) AND ([IsDefault] = @O"& _
22671                 "riginal_IsDefault) AND ([IsEnabled] = @Original_IsEnabled))"
22672             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
22673             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22674             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IsDefault", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IsDefault", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22675             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IsEnabled", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IsEnabled", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22676             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
22677             Me._adapter.InsertCommand.Connection = Me.Connection
22678             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[SMSSetting] ([APIUrl], [IsDefault], [IsEnabled]) VALUES (@APIU"& _
22679                 "rl, @IsDefault, @IsEnabled);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, APIUrl, IsDefault, IsEnabled FROM SMSSe"& _
22680                 "tting WHERE (Id = SCOPE_IDENTITY())"
22681             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
22682             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@APIUrl", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "APIUrl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22683             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsDefault", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IsDefault", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22684             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsEnabled", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IsEnabled", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22685             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
22686             Me._adapter.UpdateCommand.Connection = Me.Connection
22687             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[SMSSetting] SET [APIUrl] = @APIUrl, [IsDefault] = @IsDefault, [IsEn"& _
22688                 "abled] = @IsEnabled WHERE (([Id] = @Original_Id) AND ([IsDefault] = @Original_Is"& _
22689                 "Default) AND ([IsEnabled] = @Original_IsEnabled));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, APIUrl, IsDefault"& _
22690                 ", IsEnabled FROM SMSSetting WHERE (Id = @Id)"
22691             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
22692             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@APIUrl", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "APIUrl", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22693             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsDefault", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IsDefault", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22694             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsEnabled", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IsEnabled", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22695             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22696             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IsDefault", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IsDefault", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22697             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IsEnabled", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IsEnabled", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
22698             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
22699         End Sub
22700         
22701         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22702          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22703         Private Sub InitConnection()
22704             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
22705             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
22706         End Sub
22707         
22708         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22709          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22710         Private Sub InitCommandCollection()
22711             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
22712             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
22713             Me._commandCollection(0).Connection = Me.Connection
22714             Me._commandCollection(0).CommandText = "SELECT Id, APIUrl, IsDefault, IsEnabled FROM dbo.SMSSetting"
22715             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
22716         End Sub
22717         
22718         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22719          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22720          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22721          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
22722         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.SMSSettingDataTable) As Integer
22723             Me.Adapter.SelectCommand = Me.CommandCollection(0)
22724             If (Me.ClearBeforeFill = true) Then
22725                 dataTable.Clear
22726             End If
22727             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
22728             Return returnValue
22729         End Function
22730         
22731         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22732          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22733          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22734          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
22735         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.SMSSettingDataTable
22736             Me.Adapter.SelectCommand = Me.CommandCollection(0)
22737             Dim dataTable As SIS_DBDataSet2.SMSSettingDataTable = New SIS_DBDataSet2.SMSSettingDataTable()
22738             Me.Adapter.Fill(dataTable)
22739             Return dataTable
22740         End Function
22741         
22742         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22743          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22744          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
22745         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.SMSSettingDataTable) As Integer
22746             Return Me.Adapter.Update(dataTable)
22747         End Function
22748         
22749         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22750          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22751          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
22752         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
22753             Return Me.Adapter.Update(dataSet, "SMSSetting")
22754         End Function
22755         
22756         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22757          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22758          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
22759         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
22760             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
22761         End Function
22762         
22763         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22764          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22765          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
22766         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
22767             Return Me.Adapter.Update(dataRows)
22768         End Function
22769         
22770         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22771          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22772          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22773          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
22774         Public Overloads Overridable Function Delete(ByVal Original_Id As Integer, ByVal Original_IsDefault As String, ByVal Original_IsEnabled As String) As Integer
22775             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer)
22776             If (Original_IsDefault Is Nothing) Then
22777                 Throw New Global.System.ArgumentNullException("Original_IsDefault")
22778             Else
22779                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_IsDefault,String)
22780             End If
22781             If (Original_IsEnabled Is Nothing) Then
22782                 Throw New Global.System.ArgumentNullException("Original_IsEnabled")
22783             Else
22784                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_IsEnabled,String)
22785             End If
22786             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
22787             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
22788                         <> Global.System.Data.ConnectionState.Open) Then
22789                 Me.Adapter.DeleteCommand.Connection.Open
22790             End If
22791             Try
22792                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
22793                 Return returnValue
22794             Finally
22795                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
22796                     Me.Adapter.DeleteCommand.Connection.Close
22797                 End If
22798             End Try
22799         End Function
22800         
22801         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22802          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22803          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22804          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
22805         Public Overloads Overridable Function Insert(ByVal APIUrl As String, ByVal IsDefault As String, ByVal IsEnabled As String) As Integer
22806             If (APIUrl Is Nothing) Then
22807                 Throw New Global.System.ArgumentNullException("APIUrl")
22808             Else
22809                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(APIUrl,String)
22810             End If
22811             If (IsDefault Is Nothing) Then
22812                 Throw New Global.System.ArgumentNullException("IsDefault")
22813             Else
22814                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(IsDefault,String)
22815             End If
22816             If (IsEnabled Is Nothing) Then
22817                 Throw New Global.System.ArgumentNullException("IsEnabled")
22818             Else
22819                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(IsEnabled,String)
22820             End If
22821             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
22822             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
22823                         <> Global.System.Data.ConnectionState.Open) Then
22824                 Me.Adapter.InsertCommand.Connection.Open
22825             End If
22826             Try
22827                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
22828                 Return returnValue
22829             Finally
22830                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
22831                     Me.Adapter.InsertCommand.Connection.Close
22832                 End If
22833             End Try
22834         End Function
22835         
22836         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22837          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22838          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22839          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
22840         Public Overloads Overridable Function Update(ByVal APIUrl As String, ByVal IsDefault As String, ByVal IsEnabled As String, ByVal Original_Id As Integer, ByVal Original_IsDefault As String, ByVal Original_IsEnabled As String, ByVal Id As Integer) As Integer
22841             If (APIUrl Is Nothing) Then
22842                 Throw New Global.System.ArgumentNullException("APIUrl")
22843             Else
22844                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(APIUrl,String)
22845             End If
22846             If (IsDefault Is Nothing) Then
22847                 Throw New Global.System.ArgumentNullException("IsDefault")
22848             Else
22849                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(IsDefault,String)
22850             End If
22851             If (IsEnabled Is Nothing) Then
22852                 Throw New Global.System.ArgumentNullException("IsEnabled")
22853             Else
22854                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(IsEnabled,String)
22855             End If
22856             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_Id,Integer)
22857             If (Original_IsDefault Is Nothing) Then
22858                 Throw New Global.System.ArgumentNullException("Original_IsDefault")
22859             Else
22860                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_IsDefault,String)
22861             End If
22862             If (Original_IsEnabled Is Nothing) Then
22863                 Throw New Global.System.ArgumentNullException("Original_IsEnabled")
22864             Else
22865                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_IsEnabled,String)
22866             End If
22867             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Id,Integer)
22868             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
22869             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
22870                         <> Global.System.Data.ConnectionState.Open) Then
22871                 Me.Adapter.UpdateCommand.Connection.Open
22872             End If
22873             Try
22874                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
22875                 Return returnValue
22876             Finally
22877                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
22878                     Me.Adapter.UpdateCommand.Connection.Close
22879                 End If
22880             End Try
22881         End Function
22882         
22883         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22884          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
22885          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
22886          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
22887         Public Overloads Overridable Function Update(ByVal APIUrl As String, ByVal IsDefault As String, ByVal IsEnabled As String, ByVal Original_Id As Integer, ByVal Original_IsDefault As String, ByVal Original_IsEnabled As String) As Integer
22888             Return Me.Update(APIUrl, IsDefault, IsEnabled, Original_Id, Original_IsDefault, Original_IsEnabled, Original_Id)
22889         End Function
22890     End Class
22891     
22892     '''<summary>
22893     '''Represents the connection and commands used to retrieve and save data.
22894     '''</summary>
22895     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
22896      Global.System.ComponentModel.ToolboxItem(true), _
22897      Global.System.ComponentModel.DataObjectAttribute(true), _
22898      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
22899         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
22900      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
22901     Partial Public Class StockTableAdapter
22902         Inherits Global.System.ComponentModel.Component
22903         
22904         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
22905         
22906         Private _connection As Global.System.Data.SqlClient.SqlConnection
22907         
22908         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
22909         
22910         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
22911         
22912         Private _clearBeforeFill As Boolean
22913         
22914         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22915          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22916         Public Sub New()
22917             MyBase.New
22918             Me.ClearBeforeFill = true
22919         End Sub
22920         
22921         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22922          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22923         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
22924             Get
22925                 If (Me._adapter Is Nothing) Then
22926                     Me.InitAdapter
22927                 End If
22928                 Return Me._adapter
22929             End Get
22930         End Property
22931         
22932         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22933          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22934         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
22935             Get
22936                 If (Me._connection Is Nothing) Then
22937                     Me.InitConnection
22938                 End If
22939                 Return Me._connection
22940             End Get
22941             Set
22942                 Me._connection = value
22943                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
22944                     Me.Adapter.InsertCommand.Connection = value
22945                 End If
22946                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
22947                     Me.Adapter.DeleteCommand.Connection = value
22948                 End If
22949                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
22950                     Me.Adapter.UpdateCommand.Connection = value
22951                 End If
22952                 Dim i As Integer = 0
22953                 Do While (i < Me.CommandCollection.Length)
22954                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
22955                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
22956                     End If
22957                     i = (i + 1)
22958                 Loop
22959             End Set
22960         End Property
22961         
22962         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22963          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22964         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
22965             Get
22966                 Return Me._transaction
22967             End Get
22968             Set
22969                 Me._transaction = value
22970                 Dim i As Integer = 0
22971                 Do While (i < Me.CommandCollection.Length)
22972                     Me.CommandCollection(i).Transaction = Me._transaction
22973                     i = (i + 1)
22974                 Loop
22975                 If ((Not (Me.Adapter) Is Nothing) _
22976                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
22977                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
22978                 End If
22979                 If ((Not (Me.Adapter) Is Nothing) _
22980                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
22981                     Me.Adapter.InsertCommand.Transaction = Me._transaction
22982                 End If
22983                 If ((Not (Me.Adapter) Is Nothing) _
22984                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
22985                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
22986                 End If
22987             End Set
22988         End Property
22989         
22990         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
22991          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
22992         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
22993             Get
22994                 If (Me._commandCollection Is Nothing) Then
22995                     Me.InitCommandCollection
22996                 End If
22997                 Return Me._commandCollection
22998             End Get
22999         End Property
23000         
23001         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23002          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23003         Public Property ClearBeforeFill() As Boolean
23004             Get
23005                 Return Me._clearBeforeFill
23006             End Get
23007             Set
23008                 Me._clearBeforeFill = value
23009             End Set
23010         End Property
23011         
23012         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23013          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23014         Private Sub InitAdapter()
23015             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
23016             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
23017             tableMapping.SourceTable = "Table"
23018             tableMapping.DataSetTable = "Stock"
23019             tableMapping.ColumnMappings.Add("ST_ID", "ST_ID")
23020             tableMapping.ColumnMappings.Add("Stock_ID", "Stock_ID")
23021             tableMapping.ColumnMappings.Add("Date", "Date")
23022             tableMapping.ColumnMappings.Add("SupplierID", "SupplierID")
23023             tableMapping.ColumnMappings.Add("GrandTotal", "GrandTotal")
23024             tableMapping.ColumnMappings.Add("TotalPayment", "TotalPayment")
23025             tableMapping.ColumnMappings.Add("PaymentDue", "PaymentDue")
23026             tableMapping.ColumnMappings.Add("Remarks", "Remarks")
23027             Me._adapter.TableMappings.Add(tableMapping)
23028             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
23029             Me._adapter.DeleteCommand.Connection = Me.Connection
23030             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Stock] WHERE (([ST_ID] = @Original_ST_ID) AND ([Stock_ID] = @O"& _
23031                 "riginal_Stock_ID) AND ([Date] = @Original_Date) AND ([SupplierID] = @Original_Su"& _
23032                 "pplierID) AND ([GrandTotal] = @Original_GrandTotal) AND ([TotalPayment] = @Origi"& _
23033                 "nal_TotalPayment) AND ([PaymentDue] = @Original_PaymentDue))"
23034             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
23035             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ST_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ST_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23036             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Stock_ID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Stock_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23037             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23038             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SupplierID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23039             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23040             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPayment", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPayment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23041             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23042             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
23043             Me._adapter.InsertCommand.Connection = Me.Connection
23044             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Stock] ([ST_ID], [Stock_ID], [Date], [SupplierID], [GrandTotal"& _
23045                 "], [TotalPayment], [PaymentDue], [Remarks]) VALUES (@ST_ID, @Stock_ID, @Date, @S"& _
23046                 "upplierID, @GrandTotal, @TotalPayment, @PaymentDue, @Remarks);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ST_ID, St"& _
23047                 "ock_ID, Date, SupplierID, GrandTotal, TotalPayment, PaymentDue, Remarks FROM Sto"& _
23048                 "ck WHERE (ST_ID = @ST_ID)"
23049             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
23050             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ST_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ST_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23051             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Stock_ID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Stock_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23052             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23053             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SupplierID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23054             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23055             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPayment", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPayment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23056             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23057             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23058             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
23059             Me._adapter.UpdateCommand.Connection = Me.Connection
23060             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Stock] SET [ST_ID] = @ST_ID, [Stock_ID] = @Stock_ID, [Date] = @Date"& _
23061                 ", [SupplierID] = @SupplierID, [GrandTotal] = @GrandTotal, [TotalPayment] = @Tota"& _
23062                 "lPayment, [PaymentDue] = @PaymentDue, [Remarks] = @Remarks WHERE (([ST_ID] = @Or"& _
23063                 "iginal_ST_ID) AND ([Stock_ID] = @Original_Stock_ID) AND ([Date] = @Original_Date"& _
23064                 ") AND ([SupplierID] = @Original_SupplierID) AND ([GrandTotal] = @Original_GrandT"& _
23065                 "otal) AND ([TotalPayment] = @Original_TotalPayment) AND ([PaymentDue] = @Origina"& _
23066                 "l_PaymentDue));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ST_ID, Stock_ID, Date, SupplierID, GrandTotal, TotalPaym"& _
23067                 "ent, PaymentDue, Remarks FROM Stock WHERE (ST_ID = @ST_ID)"
23068             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
23069             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ST_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ST_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23070             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Stock_ID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Stock_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23071             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23072             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SupplierID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23073             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23074             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPayment", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPayment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23075             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23076             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23077             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ST_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ST_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23078             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Stock_ID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Stock_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23079             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23080             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SupplierID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23081             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23082             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPayment", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPayment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23083             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23084         End Sub
23085         
23086         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23087          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23088         Private Sub InitConnection()
23089             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
23090             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
23091         End Sub
23092         
23093         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23094          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23095         Private Sub InitCommandCollection()
23096             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
23097             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
23098             Me._commandCollection(0).Connection = Me.Connection
23099             Me._commandCollection(0).CommandText = "SELECT ST_ID, Stock_ID, Date, SupplierID, GrandTotal, TotalPayment, PaymentDue, R"& _
23100                 "emarks FROM dbo.Stock"
23101             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
23102         End Sub
23103         
23104         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23105          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23106          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23107          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
23108         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.StockDataTable) As Integer
23109             Me.Adapter.SelectCommand = Me.CommandCollection(0)
23110             If (Me.ClearBeforeFill = true) Then
23111                 dataTable.Clear
23112             End If
23113             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
23114             Return returnValue
23115         End Function
23116         
23117         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23118          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23119          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23120          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
23121         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.StockDataTable
23122             Me.Adapter.SelectCommand = Me.CommandCollection(0)
23123             Dim dataTable As SIS_DBDataSet2.StockDataTable = New SIS_DBDataSet2.StockDataTable()
23124             Me.Adapter.Fill(dataTable)
23125             Return dataTable
23126         End Function
23127         
23128         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23129          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23130          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
23131         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.StockDataTable) As Integer
23132             Return Me.Adapter.Update(dataTable)
23133         End Function
23134         
23135         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23136          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23137          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
23138         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
23139             Return Me.Adapter.Update(dataSet, "Stock")
23140         End Function
23141         
23142         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23143          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23144          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
23145         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
23146             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
23147         End Function
23148         
23149         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23150          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23151          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
23152         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
23153             Return Me.Adapter.Update(dataRows)
23154         End Function
23155         
23156         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23157          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23158          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23159          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
23160         Public Overloads Overridable Function Delete(ByVal Original_ST_ID As Integer, ByVal Original_Stock_ID As String, ByVal Original_Date As Date, ByVal Original_SupplierID As Integer, ByVal Original_GrandTotal As Decimal, ByVal Original_TotalPayment As Decimal, ByVal Original_PaymentDue As Decimal) As Integer
23161             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ST_ID,Integer)
23162             If (Original_Stock_ID Is Nothing) Then
23163                 Throw New Global.System.ArgumentNullException("Original_Stock_ID")
23164             Else
23165                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Stock_ID,String)
23166             End If
23167             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Date,Date)
23168             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_SupplierID,Integer)
23169             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_GrandTotal,Decimal)
23170             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_TotalPayment,Decimal)
23171             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_PaymentDue,Decimal)
23172             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
23173             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
23174                         <> Global.System.Data.ConnectionState.Open) Then
23175                 Me.Adapter.DeleteCommand.Connection.Open
23176             End If
23177             Try
23178                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
23179                 Return returnValue
23180             Finally
23181                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
23182                     Me.Adapter.DeleteCommand.Connection.Close
23183                 End If
23184             End Try
23185         End Function
23186         
23187         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23188          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23189          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23190          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
23191         Public Overloads Overridable Function Insert(ByVal ST_ID As Integer, ByVal Stock_ID As String, ByVal _Date As Date, ByVal SupplierID As Integer, ByVal GrandTotal As Decimal, ByVal TotalPayment As Decimal, ByVal PaymentDue As Decimal, ByVal Remarks As String) As Integer
23192             Me.Adapter.InsertCommand.Parameters(0).Value = CType(ST_ID,Integer)
23193             If (Stock_ID Is Nothing) Then
23194                 Throw New Global.System.ArgumentNullException("Stock_ID")
23195             Else
23196                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Stock_ID,String)
23197             End If
23198             Me.Adapter.InsertCommand.Parameters(2).Value = CType(_Date,Date)
23199             Me.Adapter.InsertCommand.Parameters(3).Value = CType(SupplierID,Integer)
23200             Me.Adapter.InsertCommand.Parameters(4).Value = CType(GrandTotal,Decimal)
23201             Me.Adapter.InsertCommand.Parameters(5).Value = CType(TotalPayment,Decimal)
23202             Me.Adapter.InsertCommand.Parameters(6).Value = CType(PaymentDue,Decimal)
23203             If (Remarks Is Nothing) Then
23204                 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
23205             Else
23206                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(Remarks,String)
23207             End If
23208             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
23209             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
23210                         <> Global.System.Data.ConnectionState.Open) Then
23211                 Me.Adapter.InsertCommand.Connection.Open
23212             End If
23213             Try
23214                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
23215                 Return returnValue
23216             Finally
23217                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
23218                     Me.Adapter.InsertCommand.Connection.Close
23219                 End If
23220             End Try
23221         End Function
23222         
23223         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23224          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23225          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23226          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
23227         Public Overloads Overridable Function Update(ByVal ST_ID As Integer, ByVal Stock_ID As String, ByVal _Date As Date, ByVal SupplierID As Integer, ByVal GrandTotal As Decimal, ByVal TotalPayment As Decimal, ByVal PaymentDue As Decimal, ByVal Remarks As String, ByVal Original_ST_ID As Integer, ByVal Original_Stock_ID As String, ByVal Original_Date As Date, ByVal Original_SupplierID As Integer, ByVal Original_GrandTotal As Decimal, ByVal Original_TotalPayment As Decimal, ByVal Original_PaymentDue As Decimal) As Integer
23228             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ST_ID,Integer)
23229             If (Stock_ID Is Nothing) Then
23230                 Throw New Global.System.ArgumentNullException("Stock_ID")
23231             Else
23232                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Stock_ID,String)
23233             End If
23234             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(_Date,Date)
23235             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SupplierID,Integer)
23236             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GrandTotal,Decimal)
23237             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TotalPayment,Decimal)
23238             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(PaymentDue,Decimal)
23239             If (Remarks Is Nothing) Then
23240                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
23241             Else
23242                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Remarks,String)
23243             End If
23244             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ST_ID,Integer)
23245             If (Original_Stock_ID Is Nothing) Then
23246                 Throw New Global.System.ArgumentNullException("Original_Stock_ID")
23247             Else
23248                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Stock_ID,String)
23249             End If
23250             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Date,Date)
23251             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_SupplierID,Integer)
23252             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GrandTotal,Decimal)
23253             Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_TotalPayment,Decimal)
23254             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_PaymentDue,Decimal)
23255             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
23256             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
23257                         <> Global.System.Data.ConnectionState.Open) Then
23258                 Me.Adapter.UpdateCommand.Connection.Open
23259             End If
23260             Try
23261                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
23262                 Return returnValue
23263             Finally
23264                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
23265                     Me.Adapter.UpdateCommand.Connection.Close
23266                 End If
23267             End Try
23268         End Function
23269         
23270         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23271          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23272          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23273          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
23274         Public Overloads Overridable Function Update(ByVal Stock_ID As String, ByVal _Date As Date, ByVal SupplierID As Integer, ByVal GrandTotal As Decimal, ByVal TotalPayment As Decimal, ByVal PaymentDue As Decimal, ByVal Remarks As String, ByVal Original_ST_ID As Integer, ByVal Original_Stock_ID As String, ByVal Original_Date As Date, ByVal Original_SupplierID As Integer, ByVal Original_GrandTotal As Decimal, ByVal Original_TotalPayment As Decimal, ByVal Original_PaymentDue As Decimal) As Integer
23275             Return Me.Update(Original_ST_ID, Stock_ID, _Date, SupplierID, GrandTotal, TotalPayment, PaymentDue, Remarks, Original_ST_ID, Original_Stock_ID, Original_Date, Original_SupplierID, Original_GrandTotal, Original_TotalPayment, Original_PaymentDue)
23276         End Function
23277     End Class
23278     
23279     '''<summary>
23280     '''Represents the connection and commands used to retrieve and save data.
23281     '''</summary>
23282     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
23283      Global.System.ComponentModel.ToolboxItem(true), _
23284      Global.System.ComponentModel.DataObjectAttribute(true), _
23285      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
23286         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
23287      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
23288     Partial Public Class Stock_ProductTableAdapter
23289         Inherits Global.System.ComponentModel.Component
23290         
23291         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
23292         
23293         Private _connection As Global.System.Data.SqlClient.SqlConnection
23294         
23295         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
23296         
23297         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
23298         
23299         Private _clearBeforeFill As Boolean
23300         
23301         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23302          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23303         Public Sub New()
23304             MyBase.New
23305             Me.ClearBeforeFill = true
23306         End Sub
23307         
23308         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23309          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23310         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
23311             Get
23312                 If (Me._adapter Is Nothing) Then
23313                     Me.InitAdapter
23314                 End If
23315                 Return Me._adapter
23316             End Get
23317         End Property
23318         
23319         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23320          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23321         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
23322             Get
23323                 If (Me._connection Is Nothing) Then
23324                     Me.InitConnection
23325                 End If
23326                 Return Me._connection
23327             End Get
23328             Set
23329                 Me._connection = value
23330                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
23331                     Me.Adapter.InsertCommand.Connection = value
23332                 End If
23333                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
23334                     Me.Adapter.DeleteCommand.Connection = value
23335                 End If
23336                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
23337                     Me.Adapter.UpdateCommand.Connection = value
23338                 End If
23339                 Dim i As Integer = 0
23340                 Do While (i < Me.CommandCollection.Length)
23341                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
23342                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
23343                     End If
23344                     i = (i + 1)
23345                 Loop
23346             End Set
23347         End Property
23348         
23349         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23350          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23351         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
23352             Get
23353                 Return Me._transaction
23354             End Get
23355             Set
23356                 Me._transaction = value
23357                 Dim i As Integer = 0
23358                 Do While (i < Me.CommandCollection.Length)
23359                     Me.CommandCollection(i).Transaction = Me._transaction
23360                     i = (i + 1)
23361                 Loop
23362                 If ((Not (Me.Adapter) Is Nothing) _
23363                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
23364                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
23365                 End If
23366                 If ((Not (Me.Adapter) Is Nothing) _
23367                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
23368                     Me.Adapter.InsertCommand.Transaction = Me._transaction
23369                 End If
23370                 If ((Not (Me.Adapter) Is Nothing) _
23371                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
23372                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
23373                 End If
23374             End Set
23375         End Property
23376         
23377         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23378          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23379         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
23380             Get
23381                 If (Me._commandCollection Is Nothing) Then
23382                     Me.InitCommandCollection
23383                 End If
23384                 Return Me._commandCollection
23385             End Get
23386         End Property
23387         
23388         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23389          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23390         Public Property ClearBeforeFill() As Boolean
23391             Get
23392                 Return Me._clearBeforeFill
23393             End Get
23394             Set
23395                 Me._clearBeforeFill = value
23396             End Set
23397         End Property
23398         
23399         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23400          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23401         Private Sub InitAdapter()
23402             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
23403             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
23404             tableMapping.SourceTable = "Table"
23405             tableMapping.DataSetTable = "Stock_Product"
23406             tableMapping.ColumnMappings.Add("SP_ID", "SP_ID")
23407             tableMapping.ColumnMappings.Add("StockID", "StockID")
23408             tableMapping.ColumnMappings.Add("ProductID", "ProductID")
23409             tableMapping.ColumnMappings.Add("Qty", "Qty")
23410             tableMapping.ColumnMappings.Add("Price", "Price")
23411             tableMapping.ColumnMappings.Add("TotalAmount", "TotalAmount")
23412             Me._adapter.TableMappings.Add(tableMapping)
23413             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
23414             Me._adapter.DeleteCommand.Connection = Me.Connection
23415             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Stock_Product] WHERE (([SP_ID] = @Original_SP_ID) AND ([StockI"& _
23416                 "D] = @Original_StockID) AND ([ProductID] = @Original_ProductID) AND ([Qty] = @Or"& _
23417                 "iginal_Qty) AND ([Price] = @Original_Price) AND ([TotalAmount] = @Original_Total"& _
23418                 "Amount))"
23419             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
23420             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23421             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StockID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StockID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23422             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23423             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23424             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Price", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Price", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23425             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23426             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
23427             Me._adapter.InsertCommand.Connection = Me.Connection
23428             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Stock_Product] ([StockID], [ProductID], [Qty], [Price], [Total"& _
23429                 "Amount]) VALUES (@StockID, @ProductID, @Qty, @Price, @TotalAmount);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT SP_I"& _
23430                 "D, StockID, ProductID, Qty, Price, TotalAmount FROM Stock_Product WHERE (SP_ID ="& _
23431                 " SCOPE_IDENTITY())"
23432             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
23433             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StockID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StockID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23434             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23435             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23436             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Price", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Price", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23437             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23438             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
23439             Me._adapter.UpdateCommand.Connection = Me.Connection
23440             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Stock_Product] SET [StockID] = @StockID, [ProductID] = @ProductID, "& _
23441                 "[Qty] = @Qty, [Price] = @Price, [TotalAmount] = @TotalAmount WHERE (([SP_ID] = @"& _
23442                 "Original_SP_ID) AND ([StockID] = @Original_StockID) AND ([ProductID] = @Original"& _
23443                 "_ProductID) AND ([Qty] = @Original_Qty) AND ([Price] = @Original_Price) AND ([To"& _
23444                 "talAmount] = @Original_TotalAmount));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT SP_ID, StockID, ProductID, Qty, Pr"& _
23445                 "ice, TotalAmount FROM Stock_Product WHERE (SP_ID = @SP_ID)"
23446             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
23447             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StockID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StockID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23448             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23449             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23450             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Price", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Price", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23451             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23452             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23453             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StockID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StockID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23454             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23455             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23456             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Price", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Price", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23457             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23458             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23459         End Sub
23460         
23461         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23462          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23463         Private Sub InitConnection()
23464             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
23465             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
23466         End Sub
23467         
23468         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23469          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23470         Private Sub InitCommandCollection()
23471             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
23472             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
23473             Me._commandCollection(0).Connection = Me.Connection
23474             Me._commandCollection(0).CommandText = "SELECT SP_ID, StockID, ProductID, Qty, Price, TotalAmount FROM dbo.Stock_Product"
23475             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
23476         End Sub
23477         
23478         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23479          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23480          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23481          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
23482         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.Stock_ProductDataTable) As Integer
23483             Me.Adapter.SelectCommand = Me.CommandCollection(0)
23484             If (Me.ClearBeforeFill = true) Then
23485                 dataTable.Clear
23486             End If
23487             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
23488             Return returnValue
23489         End Function
23490         
23491         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23492          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23493          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23494          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
23495         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.Stock_ProductDataTable
23496             Me.Adapter.SelectCommand = Me.CommandCollection(0)
23497             Dim dataTable As SIS_DBDataSet2.Stock_ProductDataTable = New SIS_DBDataSet2.Stock_ProductDataTable()
23498             Me.Adapter.Fill(dataTable)
23499             Return dataTable
23500         End Function
23501         
23502         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23503          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23504          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
23505         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.Stock_ProductDataTable) As Integer
23506             Return Me.Adapter.Update(dataTable)
23507         End Function
23508         
23509         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23510          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23511          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
23512         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
23513             Return Me.Adapter.Update(dataSet, "Stock_Product")
23514         End Function
23515         
23516         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23517          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23518          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
23519         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
23520             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
23521         End Function
23522         
23523         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23524          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23525          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
23526         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
23527             Return Me.Adapter.Update(dataRows)
23528         End Function
23529         
23530         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23531          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23532          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23533          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
23534         Public Overloads Overridable Function Delete(ByVal Original_SP_ID As Integer, ByVal Original_StockID As Integer, ByVal Original_ProductID As Integer, ByVal Original_Qty As Integer, ByVal Original_Price As Decimal, ByVal Original_TotalAmount As Decimal) As Integer
23535             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_SP_ID,Integer)
23536             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_StockID,Integer)
23537             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ProductID,Integer)
23538             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Qty,Integer)
23539             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Price,Decimal)
23540             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_TotalAmount,Decimal)
23541             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
23542             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
23543                         <> Global.System.Data.ConnectionState.Open) Then
23544                 Me.Adapter.DeleteCommand.Connection.Open
23545             End If
23546             Try
23547                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
23548                 Return returnValue
23549             Finally
23550                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
23551                     Me.Adapter.DeleteCommand.Connection.Close
23552                 End If
23553             End Try
23554         End Function
23555         
23556         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23557          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23558          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23559          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
23560         Public Overloads Overridable Function Insert(ByVal StockID As Integer, ByVal ProductID As Integer, ByVal Qty As Integer, ByVal Price As Decimal, ByVal TotalAmount As Decimal) As Integer
23561             Me.Adapter.InsertCommand.Parameters(0).Value = CType(StockID,Integer)
23562             Me.Adapter.InsertCommand.Parameters(1).Value = CType(ProductID,Integer)
23563             Me.Adapter.InsertCommand.Parameters(2).Value = CType(Qty,Integer)
23564             Me.Adapter.InsertCommand.Parameters(3).Value = CType(Price,Decimal)
23565             Me.Adapter.InsertCommand.Parameters(4).Value = CType(TotalAmount,Decimal)
23566             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
23567             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
23568                         <> Global.System.Data.ConnectionState.Open) Then
23569                 Me.Adapter.InsertCommand.Connection.Open
23570             End If
23571             Try
23572                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
23573                 Return returnValue
23574             Finally
23575                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
23576                     Me.Adapter.InsertCommand.Connection.Close
23577                 End If
23578             End Try
23579         End Function
23580         
23581         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23582          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23583          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23584          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
23585         Public Overloads Overridable Function Update(ByVal StockID As Integer, ByVal ProductID As Integer, ByVal Qty As Integer, ByVal Price As Decimal, ByVal TotalAmount As Decimal, ByVal Original_SP_ID As Integer, ByVal Original_StockID As Integer, ByVal Original_ProductID As Integer, ByVal Original_Qty As Integer, ByVal Original_Price As Decimal, ByVal Original_TotalAmount As Decimal, ByVal SP_ID As Integer) As Integer
23586             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(StockID,Integer)
23587             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ProductID,Integer)
23588             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Qty,Integer)
23589             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Price,Decimal)
23590             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(TotalAmount,Decimal)
23591             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_SP_ID,Integer)
23592             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_StockID,Integer)
23593             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_ProductID,Integer)
23594             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Qty,Integer)
23595             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Price,Decimal)
23596             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_TotalAmount,Decimal)
23597             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SP_ID,Integer)
23598             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
23599             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
23600                         <> Global.System.Data.ConnectionState.Open) Then
23601                 Me.Adapter.UpdateCommand.Connection.Open
23602             End If
23603             Try
23604                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
23605                 Return returnValue
23606             Finally
23607                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
23608                     Me.Adapter.UpdateCommand.Connection.Close
23609                 End If
23610             End Try
23611         End Function
23612         
23613         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23614          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23615          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23616          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
23617         Public Overloads Overridable Function Update(ByVal StockID As Integer, ByVal ProductID As Integer, ByVal Qty As Integer, ByVal Price As Decimal, ByVal TotalAmount As Decimal, ByVal Original_SP_ID As Integer, ByVal Original_StockID As Integer, ByVal Original_ProductID As Integer, ByVal Original_Qty As Integer, ByVal Original_Price As Decimal, ByVal Original_TotalAmount As Decimal) As Integer
23618             Return Me.Update(StockID, ProductID, Qty, Price, TotalAmount, Original_SP_ID, Original_StockID, Original_ProductID, Original_Qty, Original_Price, Original_TotalAmount, Original_SP_ID)
23619         End Function
23620     End Class
23621     
23622     '''<summary>
23623     '''Represents the connection and commands used to retrieve and save data.
23624     '''</summary>
23625     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
23626      Global.System.ComponentModel.ToolboxItem(true), _
23627      Global.System.ComponentModel.DataObjectAttribute(true), _
23628      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
23629         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
23630      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
23631     Partial Public Class SubCategoryTableAdapter
23632         Inherits Global.System.ComponentModel.Component
23633         
23634         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
23635         
23636         Private _connection As Global.System.Data.SqlClient.SqlConnection
23637         
23638         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
23639         
23640         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
23641         
23642         Private _clearBeforeFill As Boolean
23643         
23644         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23645          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23646         Public Sub New()
23647             MyBase.New
23648             Me.ClearBeforeFill = true
23649         End Sub
23650         
23651         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23652          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23653         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
23654             Get
23655                 If (Me._adapter Is Nothing) Then
23656                     Me.InitAdapter
23657                 End If
23658                 Return Me._adapter
23659             End Get
23660         End Property
23661         
23662         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23663          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23664         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
23665             Get
23666                 If (Me._connection Is Nothing) Then
23667                     Me.InitConnection
23668                 End If
23669                 Return Me._connection
23670             End Get
23671             Set
23672                 Me._connection = value
23673                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
23674                     Me.Adapter.InsertCommand.Connection = value
23675                 End If
23676                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
23677                     Me.Adapter.DeleteCommand.Connection = value
23678                 End If
23679                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
23680                     Me.Adapter.UpdateCommand.Connection = value
23681                 End If
23682                 Dim i As Integer = 0
23683                 Do While (i < Me.CommandCollection.Length)
23684                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
23685                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
23686                     End If
23687                     i = (i + 1)
23688                 Loop
23689             End Set
23690         End Property
23691         
23692         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23693          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23694         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
23695             Get
23696                 Return Me._transaction
23697             End Get
23698             Set
23699                 Me._transaction = value
23700                 Dim i As Integer = 0
23701                 Do While (i < Me.CommandCollection.Length)
23702                     Me.CommandCollection(i).Transaction = Me._transaction
23703                     i = (i + 1)
23704                 Loop
23705                 If ((Not (Me.Adapter) Is Nothing) _
23706                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
23707                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
23708                 End If
23709                 If ((Not (Me.Adapter) Is Nothing) _
23710                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
23711                     Me.Adapter.InsertCommand.Transaction = Me._transaction
23712                 End If
23713                 If ((Not (Me.Adapter) Is Nothing) _
23714                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
23715                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
23716                 End If
23717             End Set
23718         End Property
23719         
23720         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23721          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23722         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
23723             Get
23724                 If (Me._commandCollection Is Nothing) Then
23725                     Me.InitCommandCollection
23726                 End If
23727                 Return Me._commandCollection
23728             End Get
23729         End Property
23730         
23731         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23732          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23733         Public Property ClearBeforeFill() As Boolean
23734             Get
23735                 Return Me._clearBeforeFill
23736             End Get
23737             Set
23738                 Me._clearBeforeFill = value
23739             End Set
23740         End Property
23741         
23742         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23743          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23744         Private Sub InitAdapter()
23745             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
23746             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
23747             tableMapping.SourceTable = "Table"
23748             tableMapping.DataSetTable = "SubCategory"
23749             tableMapping.ColumnMappings.Add("ID", "ID")
23750             tableMapping.ColumnMappings.Add("SubCategoryName", "SubCategoryName")
23751             tableMapping.ColumnMappings.Add("Category", "Category")
23752             Me._adapter.TableMappings.Add(tableMapping)
23753             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
23754             Me._adapter.DeleteCommand.Connection = Me.Connection
23755             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[SubCategory] WHERE (([ID] = @Original_ID) AND ([SubCategoryNam"& _
23756                 "e] = @Original_SubCategoryName) AND ([Category] = @Original_Category))"
23757             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
23758             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23759             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SubCategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23760             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Category", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Category", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23761             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
23762             Me._adapter.InsertCommand.Connection = Me.Connection
23763             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[SubCategory] ([ID], [SubCategoryName], [Category]) VALUES (@ID"& _
23764                 ", @SubCategoryName, @Category);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, SubCategoryName, Category FROM SubCa"& _
23765                 "tegory WHERE (ID = @ID)"
23766             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
23767             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23768             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SubCategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23769             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Category", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Category", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23770             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
23771             Me._adapter.UpdateCommand.Connection = Me.Connection
23772             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[SubCategory] SET [ID] = @ID, [SubCategoryName] = @SubCategoryName, "& _
23773                 "[Category] = @Category WHERE (([ID] = @Original_ID) AND ([SubCategoryName] = @Or"& _
23774                 "iginal_SubCategoryName) AND ([Category] = @Original_Category));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, SubC"& _
23775                 "ategoryName, Category FROM SubCategory WHERE (ID = @ID)"
23776             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
23777             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23778             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SubCategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23779             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Category", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Category", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
23780             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23781             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SubCategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23782             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Category", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Category", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
23783         End Sub
23784         
23785         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23786          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23787         Private Sub InitConnection()
23788             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
23789             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
23790         End Sub
23791         
23792         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23793          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23794         Private Sub InitCommandCollection()
23795             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
23796             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
23797             Me._commandCollection(0).Connection = Me.Connection
23798             Me._commandCollection(0).CommandText = "SELECT ID, SubCategoryName, Category FROM dbo.SubCategory"
23799             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
23800         End Sub
23801         
23802         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23803          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23804          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23805          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
23806         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.SubCategoryDataTable) As Integer
23807             Me.Adapter.SelectCommand = Me.CommandCollection(0)
23808             If (Me.ClearBeforeFill = true) Then
23809                 dataTable.Clear
23810             End If
23811             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
23812             Return returnValue
23813         End Function
23814         
23815         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23816          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23817          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23818          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
23819         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.SubCategoryDataTable
23820             Me.Adapter.SelectCommand = Me.CommandCollection(0)
23821             Dim dataTable As SIS_DBDataSet2.SubCategoryDataTable = New SIS_DBDataSet2.SubCategoryDataTable()
23822             Me.Adapter.Fill(dataTable)
23823             Return dataTable
23824         End Function
23825         
23826         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23827          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23828          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
23829         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.SubCategoryDataTable) As Integer
23830             Return Me.Adapter.Update(dataTable)
23831         End Function
23832         
23833         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23834          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23835          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
23836         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
23837             Return Me.Adapter.Update(dataSet, "SubCategory")
23838         End Function
23839         
23840         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23841          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23842          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
23843         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
23844             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
23845         End Function
23846         
23847         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23848          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23849          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
23850         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
23851             Return Me.Adapter.Update(dataRows)
23852         End Function
23853         
23854         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23855          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23856          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23857          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
23858         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer, ByVal Original_SubCategoryName As String, ByVal Original_Category As String) As Integer
23859             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
23860             If (Original_SubCategoryName Is Nothing) Then
23861                 Throw New Global.System.ArgumentNullException("Original_SubCategoryName")
23862             Else
23863                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SubCategoryName,String)
23864             End If
23865             If (Original_Category Is Nothing) Then
23866                 Throw New Global.System.ArgumentNullException("Original_Category")
23867             Else
23868                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Category,String)
23869             End If
23870             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
23871             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
23872                         <> Global.System.Data.ConnectionState.Open) Then
23873                 Me.Adapter.DeleteCommand.Connection.Open
23874             End If
23875             Try
23876                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
23877                 Return returnValue
23878             Finally
23879                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
23880                     Me.Adapter.DeleteCommand.Connection.Close
23881                 End If
23882             End Try
23883         End Function
23884         
23885         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23886          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23887          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23888          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
23889         Public Overloads Overridable Function Insert(ByVal ID As Integer, ByVal SubCategoryName As String, ByVal Category As String) As Integer
23890             Me.Adapter.InsertCommand.Parameters(0).Value = CType(ID,Integer)
23891             If (SubCategoryName Is Nothing) Then
23892                 Throw New Global.System.ArgumentNullException("SubCategoryName")
23893             Else
23894                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(SubCategoryName,String)
23895             End If
23896             If (Category Is Nothing) Then
23897                 Throw New Global.System.ArgumentNullException("Category")
23898             Else
23899                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Category,String)
23900             End If
23901             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
23902             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
23903                         <> Global.System.Data.ConnectionState.Open) Then
23904                 Me.Adapter.InsertCommand.Connection.Open
23905             End If
23906             Try
23907                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
23908                 Return returnValue
23909             Finally
23910                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
23911                     Me.Adapter.InsertCommand.Connection.Close
23912                 End If
23913             End Try
23914         End Function
23915         
23916         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23917          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23918          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23919          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
23920         Public Overloads Overridable Function Update(ByVal ID As Integer, ByVal SubCategoryName As String, ByVal Category As String, ByVal Original_ID As Integer, ByVal Original_SubCategoryName As String, ByVal Original_Category As String) As Integer
23921             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ID,Integer)
23922             If (SubCategoryName Is Nothing) Then
23923                 Throw New Global.System.ArgumentNullException("SubCategoryName")
23924             Else
23925                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SubCategoryName,String)
23926             End If
23927             If (Category Is Nothing) Then
23928                 Throw New Global.System.ArgumentNullException("Category")
23929             Else
23930                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Category,String)
23931             End If
23932             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_ID,Integer)
23933             If (Original_SubCategoryName Is Nothing) Then
23934                 Throw New Global.System.ArgumentNullException("Original_SubCategoryName")
23935             Else
23936                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_SubCategoryName,String)
23937             End If
23938             If (Original_Category Is Nothing) Then
23939                 Throw New Global.System.ArgumentNullException("Original_Category")
23940             Else
23941                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Category,String)
23942             End If
23943             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
23944             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
23945                         <> Global.System.Data.ConnectionState.Open) Then
23946                 Me.Adapter.UpdateCommand.Connection.Open
23947             End If
23948             Try
23949                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
23950                 Return returnValue
23951             Finally
23952                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
23953                     Me.Adapter.UpdateCommand.Connection.Close
23954                 End If
23955             End Try
23956         End Function
23957         
23958         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23959          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
23960          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
23961          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
23962         Public Overloads Overridable Function Update(ByVal SubCategoryName As String, ByVal Category As String, ByVal Original_ID As Integer, ByVal Original_SubCategoryName As String, ByVal Original_Category As String) As Integer
23963             Return Me.Update(Original_ID, SubCategoryName, Category, Original_ID, Original_SubCategoryName, Original_Category)
23964         End Function
23965     End Class
23966     
23967     '''<summary>
23968     '''Represents the connection and commands used to retrieve and save data.
23969     '''</summary>
23970     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
23971      Global.System.ComponentModel.ToolboxItem(true), _
23972      Global.System.ComponentModel.DataObjectAttribute(true), _
23973      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
23974         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
23975      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
23976     Partial Public Class SupplierTableAdapter
23977         Inherits Global.System.ComponentModel.Component
23978         
23979         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
23980         
23981         Private _connection As Global.System.Data.SqlClient.SqlConnection
23982         
23983         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
23984         
23985         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
23986         
23987         Private _clearBeforeFill As Boolean
23988         
23989         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23990          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23991         Public Sub New()
23992             MyBase.New
23993             Me.ClearBeforeFill = true
23994         End Sub
23995         
23996         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
23997          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
23998         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
23999             Get
24000                 If (Me._adapter Is Nothing) Then
24001                     Me.InitAdapter
24002                 End If
24003                 Return Me._adapter
24004             End Get
24005         End Property
24006         
24007         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24008          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24009         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
24010             Get
24011                 If (Me._connection Is Nothing) Then
24012                     Me.InitConnection
24013                 End If
24014                 Return Me._connection
24015             End Get
24016             Set
24017                 Me._connection = value
24018                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
24019                     Me.Adapter.InsertCommand.Connection = value
24020                 End If
24021                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
24022                     Me.Adapter.DeleteCommand.Connection = value
24023                 End If
24024                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
24025                     Me.Adapter.UpdateCommand.Connection = value
24026                 End If
24027                 Dim i As Integer = 0
24028                 Do While (i < Me.CommandCollection.Length)
24029                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
24030                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
24031                     End If
24032                     i = (i + 1)
24033                 Loop
24034             End Set
24035         End Property
24036         
24037         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24038          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24039         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
24040             Get
24041                 Return Me._transaction
24042             End Get
24043             Set
24044                 Me._transaction = value
24045                 Dim i As Integer = 0
24046                 Do While (i < Me.CommandCollection.Length)
24047                     Me.CommandCollection(i).Transaction = Me._transaction
24048                     i = (i + 1)
24049                 Loop
24050                 If ((Not (Me.Adapter) Is Nothing) _
24051                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
24052                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
24053                 End If
24054                 If ((Not (Me.Adapter) Is Nothing) _
24055                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
24056                     Me.Adapter.InsertCommand.Transaction = Me._transaction
24057                 End If
24058                 If ((Not (Me.Adapter) Is Nothing) _
24059                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
24060                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
24061                 End If
24062             End Set
24063         End Property
24064         
24065         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24066          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24067         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
24068             Get
24069                 If (Me._commandCollection Is Nothing) Then
24070                     Me.InitCommandCollection
24071                 End If
24072                 Return Me._commandCollection
24073             End Get
24074         End Property
24075         
24076         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24077          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24078         Public Property ClearBeforeFill() As Boolean
24079             Get
24080                 Return Me._clearBeforeFill
24081             End Get
24082             Set
24083                 Me._clearBeforeFill = value
24084             End Set
24085         End Property
24086         
24087         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24088          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24089         Private Sub InitAdapter()
24090             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
24091             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
24092             tableMapping.SourceTable = "Table"
24093             tableMapping.DataSetTable = "Supplier"
24094             tableMapping.ColumnMappings.Add("ID", "ID")
24095             tableMapping.ColumnMappings.Add("SupplierID", "SupplierID")
24096             tableMapping.ColumnMappings.Add("Name", "Name")
24097             tableMapping.ColumnMappings.Add("Address", "Address")
24098             tableMapping.ColumnMappings.Add("City", "City")
24099             tableMapping.ColumnMappings.Add("State", "State")
24100             tableMapping.ColumnMappings.Add("ZipCode", "ZipCode")
24101             tableMapping.ColumnMappings.Add("ContactNo", "ContactNo")
24102             tableMapping.ColumnMappings.Add("EmailID", "EmailID")
24103             tableMapping.ColumnMappings.Add("Remarks", "Remarks")
24104             Me._adapter.TableMappings.Add(tableMapping)
24105             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
24106             Me._adapter.DeleteCommand.Connection = Me.Connection
24107             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Supplier] WHERE (([ID] = @Original_ID) AND ([SupplierID] = @Or"& _
24108                 "iginal_SupplierID) AND ((@IsNull_Name = 1 AND [Name] IS NULL) OR ([Name] = @Orig"& _
24109                 "inal_Name)) AND ((@IsNull_Address = 1 AND [Address] IS NULL) OR ([Address] = @Or"& _
24110                 "iginal_Address)) AND ((@IsNull_City = 1 AND [City] IS NULL) OR ([City] = @Origin"& _
24111                 "al_City)) AND ((@IsNull_State = 1 AND [State] IS NULL) OR ([State] = @Original_S"& _
24112                 "tate)) AND ((@IsNull_ZipCode = 1 AND [ZipCode] IS NULL) OR ([ZipCode] = @Origina"& _
24113                 "l_ZipCode)) AND ((@IsNull_ContactNo = 1 AND [ContactNo] IS NULL) OR ([ContactNo]"& _
24114                 " = @Original_ContactNo)) AND ((@IsNull_EmailID = 1 AND [EmailID] IS NULL) OR ([E"& _
24115                 "mailID] = @Original_EmailID)))"
24116             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
24117             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24118             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SupplierID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24119             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
24120             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24121             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Address", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
24122             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24123             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_City", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
24124             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24125             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_State", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
24126             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24127             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ZipCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
24128             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24129             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ContactNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
24130             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24131             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
24132             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24133             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
24134             Me._adapter.InsertCommand.Connection = Me.Connection
24135             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Supplier] ([ID], [SupplierID], [Name], [Address], [City], [Sta"& _
24136                 "te], [ZipCode], [ContactNo], [EmailID], [Remarks]) VALUES (@ID, @SupplierID, @Na"& _
24137                 "me, @Address, @City, @State, @ZipCode, @ContactNo, @EmailID, @Remarks);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _
24138                 "ID, SupplierID, Name, Address, City, State, ZipCode, ContactNo, EmailID, Remarks"& _
24139                 " FROM Supplier WHERE (ID = @ID)"
24140             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
24141             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24142             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SupplierID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24143             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24144             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24145             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24146             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24147             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24148             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24149             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24150             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24151             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
24152             Me._adapter.UpdateCommand.Connection = Me.Connection
24153             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Supplier] SET [ID] = @ID, [SupplierID] = @SupplierID, [Name] = @Nam"& _
24154                 "e, [Address] = @Address, [City] = @City, [State] = @State, [ZipCode] = @ZipCode,"& _
24155                 " [ContactNo] = @ContactNo, [EmailID] = @EmailID, [Remarks] = @Remarks WHERE (([I"& _
24156                 "D] = @Original_ID) AND ([SupplierID] = @Original_SupplierID) AND ((@IsNull_Name "& _
24157                 "= 1 AND [Name] IS NULL) OR ([Name] = @Original_Name)) AND ((@IsNull_Address = 1 "& _
24158                 "AND [Address] IS NULL) OR ([Address] = @Original_Address)) AND ((@IsNull_City = "& _
24159                 "1 AND [City] IS NULL) OR ([City] = @Original_City)) AND ((@IsNull_State = 1 AND "& _
24160                 "[State] IS NULL) OR ([State] = @Original_State)) AND ((@IsNull_ZipCode = 1 AND ["& _
24161                 "ZipCode] IS NULL) OR ([ZipCode] = @Original_ZipCode)) AND ((@IsNull_ContactNo = "& _
24162                 "1 AND [ContactNo] IS NULL) OR ([ContactNo] = @Original_ContactNo)) AND ((@IsNull"& _
24163                 "_EmailID = 1 AND [EmailID] IS NULL) OR ([EmailID] = @Original_EmailID)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELEC"& _
24164                 "T ID, SupplierID, Name, Address, City, State, ZipCode, ContactNo, EmailID, Remar"& _
24165                 "ks FROM Supplier WHERE (ID = @ID)"
24166             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
24167             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24168             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SupplierID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24169             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24170             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24171             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24172             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24173             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24174             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24175             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24176             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24177             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24178             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SupplierID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24179             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
24180             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24181             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Address", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
24182             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24183             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_City", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
24184             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24185             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_State", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
24186             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24187             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ZipCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
24188             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24189             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ContactNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
24190             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24191             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
24192             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24193         End Sub
24194         
24195         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24196          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24197         Private Sub InitConnection()
24198             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
24199             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
24200         End Sub
24201         
24202         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24203          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24204         Private Sub InitCommandCollection()
24205             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
24206             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
24207             Me._commandCollection(0).Connection = Me.Connection
24208             Me._commandCollection(0).CommandText = "SELECT ID, SupplierID, Name, Address, City, State, ZipCode, ContactNo, EmailID, R"& _
24209                 "emarks FROM dbo.Supplier"
24210             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
24211         End Sub
24212         
24213         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24214          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24215          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24216          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
24217         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.SupplierDataTable) As Integer
24218             Me.Adapter.SelectCommand = Me.CommandCollection(0)
24219             If (Me.ClearBeforeFill = true) Then
24220                 dataTable.Clear
24221             End If
24222             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
24223             Return returnValue
24224         End Function
24225         
24226         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24227          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24228          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24229          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
24230         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.SupplierDataTable
24231             Me.Adapter.SelectCommand = Me.CommandCollection(0)
24232             Dim dataTable As SIS_DBDataSet2.SupplierDataTable = New SIS_DBDataSet2.SupplierDataTable()
24233             Me.Adapter.Fill(dataTable)
24234             Return dataTable
24235         End Function
24236         
24237         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24238          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24239          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24240         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.SupplierDataTable) As Integer
24241             Return Me.Adapter.Update(dataTable)
24242         End Function
24243         
24244         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24245          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24246          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24247         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
24248             Return Me.Adapter.Update(dataSet, "Supplier")
24249         End Function
24250         
24251         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24252          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24253          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24254         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
24255             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
24256         End Function
24257         
24258         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24259          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24260          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24261         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
24262             Return Me.Adapter.Update(dataRows)
24263         End Function
24264         
24265         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24266          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24267          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24268          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
24269         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer, ByVal Original_SupplierID As String, ByVal Original_Name As String, ByVal Original_Address As String, ByVal Original_City As String, ByVal Original_State As String, ByVal Original_ZipCode As String, ByVal Original_ContactNo As String, ByVal Original_EmailID As String) As Integer
24270             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
24271             If (Original_SupplierID Is Nothing) Then
24272                 Throw New Global.System.ArgumentNullException("Original_SupplierID")
24273             Else
24274                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SupplierID,String)
24275             End If
24276             If (Original_Name Is Nothing) Then
24277                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object)
24278                 Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value
24279             Else
24280                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object)
24281                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Name,String)
24282             End If
24283             If (Original_Address Is Nothing) Then
24284                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object)
24285                 Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value
24286             Else
24287                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object)
24288                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Address,String)
24289             End If
24290             If (Original_City Is Nothing) Then
24291                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object)
24292                 Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value
24293             Else
24294                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object)
24295                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_City,String)
24296             End If
24297             If (Original_State Is Nothing) Then
24298                 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object)
24299                 Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value
24300             Else
24301                 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object)
24302                 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_State,String)
24303             End If
24304             If (Original_ZipCode Is Nothing) Then
24305                 Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object)
24306                 Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value
24307             Else
24308                 Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object)
24309                 Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_ZipCode,String)
24310             End If
24311             If (Original_ContactNo Is Nothing) Then
24312                 Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object)
24313                 Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value
24314             Else
24315                 Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object)
24316                 Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_ContactNo,String)
24317             End If
24318             If (Original_EmailID Is Nothing) Then
24319                 Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object)
24320                 Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value
24321             Else
24322                 Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object)
24323                 Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_EmailID,String)
24324             End If
24325             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
24326             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
24327                         <> Global.System.Data.ConnectionState.Open) Then
24328                 Me.Adapter.DeleteCommand.Connection.Open
24329             End If
24330             Try
24331                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
24332                 Return returnValue
24333             Finally
24334                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
24335                     Me.Adapter.DeleteCommand.Connection.Close
24336                 End If
24337             End Try
24338         End Function
24339         
24340         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24341          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24342          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24343          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
24344         Public Overloads Overridable Function Insert(ByVal ID As Integer, ByVal SupplierID As String, ByVal Name As String, ByVal Address As String, ByVal City As String, ByVal State As String, ByVal ZipCode As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal Remarks As String) As Integer
24345             Me.Adapter.InsertCommand.Parameters(0).Value = CType(ID,Integer)
24346             If (SupplierID Is Nothing) Then
24347                 Throw New Global.System.ArgumentNullException("SupplierID")
24348             Else
24349                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(SupplierID,String)
24350             End If
24351             If (Name Is Nothing) Then
24352                 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
24353             Else
24354                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Name,String)
24355             End If
24356             If (Address Is Nothing) Then
24357                 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
24358             Else
24359                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Address,String)
24360             End If
24361             If (City Is Nothing) Then
24362                 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
24363             Else
24364                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(City,String)
24365             End If
24366             If (State Is Nothing) Then
24367                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
24368             Else
24369                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(State,String)
24370             End If
24371             If (ZipCode Is Nothing) Then
24372                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
24373             Else
24374                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(ZipCode,String)
24375             End If
24376             If (ContactNo Is Nothing) Then
24377                 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
24378             Else
24379                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(ContactNo,String)
24380             End If
24381             If (EmailID Is Nothing) Then
24382                 Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
24383             Else
24384                 Me.Adapter.InsertCommand.Parameters(8).Value = CType(EmailID,String)
24385             End If
24386             If (Remarks Is Nothing) Then
24387                 Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
24388             Else
24389                 Me.Adapter.InsertCommand.Parameters(9).Value = CType(Remarks,String)
24390             End If
24391             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
24392             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
24393                         <> Global.System.Data.ConnectionState.Open) Then
24394                 Me.Adapter.InsertCommand.Connection.Open
24395             End If
24396             Try
24397                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
24398                 Return returnValue
24399             Finally
24400                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
24401                     Me.Adapter.InsertCommand.Connection.Close
24402                 End If
24403             End Try
24404         End Function
24405         
24406         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24407          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24408          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24409          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
24410         Public Overloads Overridable Function Update( _
24411                     ByVal ID As Integer, _
24412                     ByVal SupplierID As String, _
24413                     ByVal Name As String, _
24414                     ByVal Address As String, _
24415                     ByVal City As String, _
24416                     ByVal State As String, _
24417                     ByVal ZipCode As String, _
24418                     ByVal ContactNo As String, _
24419                     ByVal EmailID As String, _
24420                     ByVal Remarks As String, _
24421                     ByVal Original_ID As Integer, _
24422                     ByVal Original_SupplierID As String, _
24423                     ByVal Original_Name As String, _
24424                     ByVal Original_Address As String, _
24425                     ByVal Original_City As String, _
24426                     ByVal Original_State As String, _
24427                     ByVal Original_ZipCode As String, _
24428                     ByVal Original_ContactNo As String, _
24429                     ByVal Original_EmailID As String) As Integer
24430             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ID,Integer)
24431             If (SupplierID Is Nothing) Then
24432                 Throw New Global.System.ArgumentNullException("SupplierID")
24433             Else
24434                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SupplierID,String)
24435             End If
24436             If (Name Is Nothing) Then
24437                 Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
24438             Else
24439                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Name,String)
24440             End If
24441             If (Address Is Nothing) Then
24442                 Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
24443             Else
24444                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Address,String)
24445             End If
24446             If (City Is Nothing) Then
24447                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
24448             Else
24449                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(City,String)
24450             End If
24451             If (State Is Nothing) Then
24452                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
24453             Else
24454                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(State,String)
24455             End If
24456             If (ZipCode Is Nothing) Then
24457                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
24458             Else
24459                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ZipCode,String)
24460             End If
24461             If (ContactNo Is Nothing) Then
24462                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
24463             Else
24464                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ContactNo,String)
24465             End If
24466             If (EmailID Is Nothing) Then
24467                 Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
24468             Else
24469                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(EmailID,String)
24470             End If
24471             If (Remarks Is Nothing) Then
24472                 Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
24473             Else
24474                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Remarks,String)
24475             End If
24476             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ID,Integer)
24477             If (Original_SupplierID Is Nothing) Then
24478                 Throw New Global.System.ArgumentNullException("Original_SupplierID")
24479             Else
24480                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_SupplierID,String)
24481             End If
24482             If (Original_Name Is Nothing) Then
24483                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
24484                 Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
24485             Else
24486                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
24487                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Name,String)
24488             End If
24489             If (Original_Address Is Nothing) Then
24490                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
24491                 Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
24492             Else
24493                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
24494                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Address,String)
24495             End If
24496             If (Original_City Is Nothing) Then
24497                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object)
24498                 Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
24499             Else
24500                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object)
24501                 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_City,String)
24502             End If
24503             If (Original_State Is Nothing) Then
24504                 Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object)
24505                 Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value
24506             Else
24507                 Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object)
24508                 Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_State,String)
24509             End If
24510             If (Original_ZipCode Is Nothing) Then
24511                 Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object)
24512                 Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value
24513             Else
24514                 Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object)
24515                 Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_ZipCode,String)
24516             End If
24517             If (Original_ContactNo Is Nothing) Then
24518                 Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object)
24519                 Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
24520             Else
24521                 Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object)
24522                 Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_ContactNo,String)
24523             End If
24524             If (Original_EmailID Is Nothing) Then
24525                 Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object)
24526                 Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value
24527             Else
24528                 Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object)
24529                 Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_EmailID,String)
24530             End If
24531             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
24532             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
24533                         <> Global.System.Data.ConnectionState.Open) Then
24534                 Me.Adapter.UpdateCommand.Connection.Open
24535             End If
24536             Try
24537                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
24538                 Return returnValue
24539             Finally
24540                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
24541                     Me.Adapter.UpdateCommand.Connection.Close
24542                 End If
24543             End Try
24544         End Function
24545         
24546         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24547          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24548          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24549          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
24550         Public Overloads Overridable Function Update( _
24551                     ByVal SupplierID As String, _
24552                     ByVal Name As String, _
24553                     ByVal Address As String, _
24554                     ByVal City As String, _
24555                     ByVal State As String, _
24556                     ByVal ZipCode As String, _
24557                     ByVal ContactNo As String, _
24558                     ByVal EmailID As String, _
24559                     ByVal Remarks As String, _
24560                     ByVal Original_ID As Integer, _
24561                     ByVal Original_SupplierID As String, _
24562                     ByVal Original_Name As String, _
24563                     ByVal Original_Address As String, _
24564                     ByVal Original_City As String, _
24565                     ByVal Original_State As String, _
24566                     ByVal Original_ZipCode As String, _
24567                     ByVal Original_ContactNo As String, _
24568                     ByVal Original_EmailID As String) As Integer
24569             Return Me.Update(Original_ID, SupplierID, Name, Address, City, State, ZipCode, ContactNo, EmailID, Remarks, Original_ID, Original_SupplierID, Original_Name, Original_Address, Original_City, Original_State, Original_ZipCode, Original_ContactNo, Original_EmailID)
24570         End Function
24571     End Class
24572     
24573     '''<summary>
24574     '''Represents the connection and commands used to retrieve and save data.
24575     '''</summary>
24576     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
24577      Global.System.ComponentModel.ToolboxItem(true), _
24578      Global.System.ComponentModel.DataObjectAttribute(true), _
24579      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
24580         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
24581      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24582     Partial Public Class Temp_StockTableAdapter
24583         Inherits Global.System.ComponentModel.Component
24584         
24585         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
24586         
24587         Private _connection As Global.System.Data.SqlClient.SqlConnection
24588         
24589         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
24590         
24591         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
24592         
24593         Private _clearBeforeFill As Boolean
24594         
24595         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24596          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24597         Public Sub New()
24598             MyBase.New
24599             Me.ClearBeforeFill = true
24600         End Sub
24601         
24602         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24603          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24604         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
24605             Get
24606                 If (Me._adapter Is Nothing) Then
24607                     Me.InitAdapter
24608                 End If
24609                 Return Me._adapter
24610             End Get
24611         End Property
24612         
24613         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24614          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24615         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
24616             Get
24617                 If (Me._connection Is Nothing) Then
24618                     Me.InitConnection
24619                 End If
24620                 Return Me._connection
24621             End Get
24622             Set
24623                 Me._connection = value
24624                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
24625                     Me.Adapter.InsertCommand.Connection = value
24626                 End If
24627                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
24628                     Me.Adapter.DeleteCommand.Connection = value
24629                 End If
24630                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
24631                     Me.Adapter.UpdateCommand.Connection = value
24632                 End If
24633                 Dim i As Integer = 0
24634                 Do While (i < Me.CommandCollection.Length)
24635                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
24636                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
24637                     End If
24638                     i = (i + 1)
24639                 Loop
24640             End Set
24641         End Property
24642         
24643         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24644          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24645         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
24646             Get
24647                 Return Me._transaction
24648             End Get
24649             Set
24650                 Me._transaction = value
24651                 Dim i As Integer = 0
24652                 Do While (i < Me.CommandCollection.Length)
24653                     Me.CommandCollection(i).Transaction = Me._transaction
24654                     i = (i + 1)
24655                 Loop
24656                 If ((Not (Me.Adapter) Is Nothing) _
24657                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
24658                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
24659                 End If
24660                 If ((Not (Me.Adapter) Is Nothing) _
24661                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
24662                     Me.Adapter.InsertCommand.Transaction = Me._transaction
24663                 End If
24664                 If ((Not (Me.Adapter) Is Nothing) _
24665                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
24666                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
24667                 End If
24668             End Set
24669         End Property
24670         
24671         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24672          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24673         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
24674             Get
24675                 If (Me._commandCollection Is Nothing) Then
24676                     Me.InitCommandCollection
24677                 End If
24678                 Return Me._commandCollection
24679             End Get
24680         End Property
24681         
24682         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24683          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24684         Public Property ClearBeforeFill() As Boolean
24685             Get
24686                 Return Me._clearBeforeFill
24687             End Get
24688             Set
24689                 Me._clearBeforeFill = value
24690             End Set
24691         End Property
24692         
24693         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24694          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24695         Private Sub InitAdapter()
24696             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
24697             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
24698             tableMapping.SourceTable = "Table"
24699             tableMapping.DataSetTable = "Temp_Stock"
24700             tableMapping.ColumnMappings.Add("ProductID", "ProductID")
24701             tableMapping.ColumnMappings.Add("Qty", "Qty")
24702             Me._adapter.TableMappings.Add(tableMapping)
24703             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
24704             Me._adapter.DeleteCommand.Connection = Me.Connection
24705             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Temp_Stock] WHERE (([ProductID] = @Original_ProductID) AND ([Q"& _
24706                 "ty] = @Original_Qty))"
24707             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
24708             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24709             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24710             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
24711             Me._adapter.InsertCommand.Connection = Me.Connection
24712             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Temp_Stock] ([ProductID], [Qty]) VALUES (@ProductID, @Qty);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _
24713                 "ELECT ProductID, Qty FROM Temp_Stock WHERE (ProductID = @ProductID)"
24714             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
24715             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24716             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24717             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
24718             Me._adapter.UpdateCommand.Connection = Me.Connection
24719             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Temp_Stock] SET [ProductID] = @ProductID, [Qty] = @Qty WHERE (([Pro"& _
24720                 "ductID] = @Original_ProductID) AND ([Qty] = @Original_Qty));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ProductID, "& _
24721                 "Qty FROM Temp_Stock WHERE (ProductID = @ProductID)"
24722             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
24723             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24724             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
24725             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24726             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
24727         End Sub
24728         
24729         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24730          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24731         Private Sub InitConnection()
24732             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
24733             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
24734         End Sub
24735         
24736         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24737          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24738         Private Sub InitCommandCollection()
24739             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
24740             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
24741             Me._commandCollection(0).Connection = Me.Connection
24742             Me._commandCollection(0).CommandText = "SELECT ProductID, Qty FROM dbo.Temp_Stock"
24743             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
24744         End Sub
24745         
24746         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24747          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24748          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24749          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
24750         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.Temp_StockDataTable) As Integer
24751             Me.Adapter.SelectCommand = Me.CommandCollection(0)
24752             If (Me.ClearBeforeFill = true) Then
24753                 dataTable.Clear
24754             End If
24755             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
24756             Return returnValue
24757         End Function
24758         
24759         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24760          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24761          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24762          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
24763         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.Temp_StockDataTable
24764             Me.Adapter.SelectCommand = Me.CommandCollection(0)
24765             Dim dataTable As SIS_DBDataSet2.Temp_StockDataTable = New SIS_DBDataSet2.Temp_StockDataTable()
24766             Me.Adapter.Fill(dataTable)
24767             Return dataTable
24768         End Function
24769         
24770         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24771          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24772          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24773         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.Temp_StockDataTable) As Integer
24774             Return Me.Adapter.Update(dataTable)
24775         End Function
24776         
24777         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24778          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24779          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24780         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
24781             Return Me.Adapter.Update(dataSet, "Temp_Stock")
24782         End Function
24783         
24784         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24785          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24786          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24787         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
24788             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
24789         End Function
24790         
24791         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24792          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24793          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24794         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
24795             Return Me.Adapter.Update(dataRows)
24796         End Function
24797         
24798         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24799          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24800          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24801          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
24802         Public Overloads Overridable Function Delete(ByVal Original_ProductID As Integer, ByVal Original_Qty As Integer) As Integer
24803             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ProductID,Integer)
24804             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Qty,Integer)
24805             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
24806             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
24807                         <> Global.System.Data.ConnectionState.Open) Then
24808                 Me.Adapter.DeleteCommand.Connection.Open
24809             End If
24810             Try
24811                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
24812                 Return returnValue
24813             Finally
24814                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
24815                     Me.Adapter.DeleteCommand.Connection.Close
24816                 End If
24817             End Try
24818         End Function
24819         
24820         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24821          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24822          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24823          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
24824         Public Overloads Overridable Function Insert(ByVal ProductID As Integer, ByVal Qty As Integer) As Integer
24825             Me.Adapter.InsertCommand.Parameters(0).Value = CType(ProductID,Integer)
24826             Me.Adapter.InsertCommand.Parameters(1).Value = CType(Qty,Integer)
24827             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
24828             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
24829                         <> Global.System.Data.ConnectionState.Open) Then
24830                 Me.Adapter.InsertCommand.Connection.Open
24831             End If
24832             Try
24833                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
24834                 Return returnValue
24835             Finally
24836                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
24837                     Me.Adapter.InsertCommand.Connection.Close
24838                 End If
24839             End Try
24840         End Function
24841         
24842         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24843          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24844          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24845          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
24846         Public Overloads Overridable Function Update(ByVal ProductID As Integer, ByVal Qty As Integer, ByVal Original_ProductID As Integer, ByVal Original_Qty As Integer) As Integer
24847             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ProductID,Integer)
24848             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Qty,Integer)
24849             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_ProductID,Integer)
24850             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_Qty,Integer)
24851             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
24852             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
24853                         <> Global.System.Data.ConnectionState.Open) Then
24854                 Me.Adapter.UpdateCommand.Connection.Open
24855             End If
24856             Try
24857                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
24858                 Return returnValue
24859             Finally
24860                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
24861                     Me.Adapter.UpdateCommand.Connection.Close
24862                 End If
24863             End Try
24864         End Function
24865         
24866         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24867          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
24868          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
24869          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
24870         Public Overloads Overridable Function Update(ByVal Qty As Integer, ByVal Original_ProductID As Integer, ByVal Original_Qty As Integer) As Integer
24871             Return Me.Update(Original_ProductID, Qty, Original_ProductID, Original_Qty)
24872         End Function
24873     End Class
24874     
24875     '''<summary>
24876     '''Represents the connection and commands used to retrieve and save data.
24877     '''</summary>
24878     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
24879      Global.System.ComponentModel.ToolboxItem(true), _
24880      Global.System.ComponentModel.DataObjectAttribute(true), _
24881      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
24882         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
24883      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
24884     Partial Public Class VoucherTableAdapter
24885         Inherits Global.System.ComponentModel.Component
24886         
24887         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
24888         
24889         Private _connection As Global.System.Data.SqlClient.SqlConnection
24890         
24891         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
24892         
24893         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
24894         
24895         Private _clearBeforeFill As Boolean
24896         
24897         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24898          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24899         Public Sub New()
24900             MyBase.New
24901             Me.ClearBeforeFill = true
24902         End Sub
24903         
24904         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24905          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24906         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
24907             Get
24908                 If (Me._adapter Is Nothing) Then
24909                     Me.InitAdapter
24910                 End If
24911                 Return Me._adapter
24912             End Get
24913         End Property
24914         
24915         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24916          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24917         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
24918             Get
24919                 If (Me._connection Is Nothing) Then
24920                     Me.InitConnection
24921                 End If
24922                 Return Me._connection
24923             End Get
24924             Set
24925                 Me._connection = value
24926                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
24927                     Me.Adapter.InsertCommand.Connection = value
24928                 End If
24929                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
24930                     Me.Adapter.DeleteCommand.Connection = value
24931                 End If
24932                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
24933                     Me.Adapter.UpdateCommand.Connection = value
24934                 End If
24935                 Dim i As Integer = 0
24936                 Do While (i < Me.CommandCollection.Length)
24937                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
24938                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
24939                     End If
24940                     i = (i + 1)
24941                 Loop
24942             End Set
24943         End Property
24944         
24945         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24946          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24947         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
24948             Get
24949                 Return Me._transaction
24950             End Get
24951             Set
24952                 Me._transaction = value
24953                 Dim i As Integer = 0
24954                 Do While (i < Me.CommandCollection.Length)
24955                     Me.CommandCollection(i).Transaction = Me._transaction
24956                     i = (i + 1)
24957                 Loop
24958                 If ((Not (Me.Adapter) Is Nothing) _
24959                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
24960                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
24961                 End If
24962                 If ((Not (Me.Adapter) Is Nothing) _
24963                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
24964                     Me.Adapter.InsertCommand.Transaction = Me._transaction
24965                 End If
24966                 If ((Not (Me.Adapter) Is Nothing) _
24967                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
24968                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
24969                 End If
24970             End Set
24971         End Property
24972         
24973         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24974          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24975         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
24976             Get
24977                 If (Me._commandCollection Is Nothing) Then
24978                     Me.InitCommandCollection
24979                 End If
24980                 Return Me._commandCollection
24981             End Get
24982         End Property
24983         
24984         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24985          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24986         Public Property ClearBeforeFill() As Boolean
24987             Get
24988                 Return Me._clearBeforeFill
24989             End Get
24990             Set
24991                 Me._clearBeforeFill = value
24992             End Set
24993         End Property
24994         
24995         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
24996          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
24997         Private Sub InitAdapter()
24998             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
24999             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
25000             tableMapping.SourceTable = "Table"
25001             tableMapping.DataSetTable = "Voucher"
25002             tableMapping.ColumnMappings.Add("Id", "Id")
25003             tableMapping.ColumnMappings.Add("VoucherNo", "VoucherNo")
25004             tableMapping.ColumnMappings.Add("Name", "Name")
25005             tableMapping.ColumnMappings.Add("Date", "Date")
25006             tableMapping.ColumnMappings.Add("Details", "Details")
25007             tableMapping.ColumnMappings.Add("GrandTotal", "GrandTotal")
25008             Me._adapter.TableMappings.Add(tableMapping)
25009             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
25010             Me._adapter.DeleteCommand.Connection = Me.Connection
25011             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Voucher] WHERE (([Id] = @Original_Id) AND ([VoucherNo] = @Orig"& _
25012                 "inal_VoucherNo) AND ((@IsNull_Name = 1 AND [Name] IS NULL) OR ([Name] = @Origina"& _
25013                 "l_Name)) AND ([Date] = @Original_Date) AND ((@IsNull_Details = 1 AND [Details] I"& _
25014                 "S NULL) OR ([Details] = @Original_Details)) AND ([GrandTotal] = @Original_GrandT"& _
25015                 "otal))"
25016             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
25017             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25018             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VoucherNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VoucherNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25019             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
25020             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25021             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25022             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Details", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Details", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
25023             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Details", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Details", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25024             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25025             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
25026             Me._adapter.InsertCommand.Connection = Me.Connection
25027             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Voucher] ([Id], [VoucherNo], [Name], [Date], [Details], [Grand"& _
25028                 "Total]) VALUES (@Id, @VoucherNo, @Name, @Date, @Details, @GrandTotal);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT I"& _
25029                 "d, VoucherNo, Name, Date, Details, GrandTotal FROM Voucher WHERE (Id = @Id)"
25030             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
25031             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25032             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VoucherNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VoucherNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25033             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25034             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25035             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Details", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Details", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25036             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25037             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
25038             Me._adapter.UpdateCommand.Connection = Me.Connection
25039             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Voucher] SET [Id] = @Id, [VoucherNo] = @VoucherNo, [Name] = @Name, "& _
25040                 "[Date] = @Date, [Details] = @Details, [GrandTotal] = @GrandTotal WHERE (([Id] = "& _
25041                 "@Original_Id) AND ([VoucherNo] = @Original_VoucherNo) AND ((@IsNull_Name = 1 AND"& _
25042                 " [Name] IS NULL) OR ([Name] = @Original_Name)) AND ([Date] = @Original_Date) AND"& _
25043                 " ((@IsNull_Details = 1 AND [Details] IS NULL) OR ([Details] = @Original_Details)"& _
25044                 ") AND ([GrandTotal] = @Original_GrandTotal));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, VoucherNo, Name, Date,"& _
25045                 " Details, GrandTotal FROM Voucher WHERE (Id = @Id)"
25046             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
25047             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25048             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VoucherNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VoucherNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25049             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25050             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25051             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Details", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Details", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25052             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25053             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25054             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VoucherNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VoucherNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25055             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Name", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
25056             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25057             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25058             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Details", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Details", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
25059             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Details", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Details", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25060             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25061         End Sub
25062         
25063         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25064          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25065         Private Sub InitConnection()
25066             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
25067             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
25068         End Sub
25069         
25070         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25071          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25072         Private Sub InitCommandCollection()
25073             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
25074             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
25075             Me._commandCollection(0).Connection = Me.Connection
25076             Me._commandCollection(0).CommandText = "SELECT Id, VoucherNo, Name, Date, Details, GrandTotal FROM dbo.Voucher"
25077             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
25078         End Sub
25079         
25080         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25081          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25082          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
25083          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
25084         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.VoucherDataTable) As Integer
25085             Me.Adapter.SelectCommand = Me.CommandCollection(0)
25086             If (Me.ClearBeforeFill = true) Then
25087                 dataTable.Clear
25088             End If
25089             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
25090             Return returnValue
25091         End Function
25092         
25093         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25094          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25095          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
25096          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
25097         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.VoucherDataTable
25098             Me.Adapter.SelectCommand = Me.CommandCollection(0)
25099             Dim dataTable As SIS_DBDataSet2.VoucherDataTable = New SIS_DBDataSet2.VoucherDataTable()
25100             Me.Adapter.Fill(dataTable)
25101             Return dataTable
25102         End Function
25103         
25104         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25105          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25106          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
25107         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.VoucherDataTable) As Integer
25108             Return Me.Adapter.Update(dataTable)
25109         End Function
25110         
25111         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25112          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25113          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
25114         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
25115             Return Me.Adapter.Update(dataSet, "Voucher")
25116         End Function
25117         
25118         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25119          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25120          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
25121         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
25122             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
25123         End Function
25124         
25125         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25126          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25127          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
25128         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
25129             Return Me.Adapter.Update(dataRows)
25130         End Function
25131         
25132         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25133          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25134          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
25135          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
25136         Public Overloads Overridable Function Delete(ByVal Original_Id As Integer, ByVal Original_VoucherNo As String, ByVal Original_Name As String, ByVal Original_Date As Date, ByVal Original_Details As String, ByVal Original_GrandTotal As Decimal) As Integer
25137             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer)
25138             If (Original_VoucherNo Is Nothing) Then
25139                 Throw New Global.System.ArgumentNullException("Original_VoucherNo")
25140             Else
25141                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_VoucherNo,String)
25142             End If
25143             If (Original_Name Is Nothing) Then
25144                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object)
25145                 Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value
25146             Else
25147                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object)
25148                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Name,String)
25149             End If
25150             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Date,Date)
25151             If (Original_Details Is Nothing) Then
25152                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
25153                 Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
25154             Else
25155                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
25156                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Details,String)
25157             End If
25158             Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_GrandTotal,Decimal)
25159             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
25160             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
25161                         <> Global.System.Data.ConnectionState.Open) Then
25162                 Me.Adapter.DeleteCommand.Connection.Open
25163             End If
25164             Try
25165                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
25166                 Return returnValue
25167             Finally
25168                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
25169                     Me.Adapter.DeleteCommand.Connection.Close
25170                 End If
25171             End Try
25172         End Function
25173         
25174         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25175          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25176          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
25177          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
25178         Public Overloads Overridable Function Insert(ByVal Id As Integer, ByVal VoucherNo As String, ByVal Name As String, ByVal _Date As Date, ByVal Details As String, ByVal GrandTotal As Decimal) As Integer
25179             Me.Adapter.InsertCommand.Parameters(0).Value = CType(Id,Integer)
25180             If (VoucherNo Is Nothing) Then
25181                 Throw New Global.System.ArgumentNullException("VoucherNo")
25182             Else
25183                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(VoucherNo,String)
25184             End If
25185             If (Name Is Nothing) Then
25186                 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
25187             Else
25188                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Name,String)
25189             End If
25190             Me.Adapter.InsertCommand.Parameters(3).Value = CType(_Date,Date)
25191             If (Details Is Nothing) Then
25192                 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
25193             Else
25194                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Details,String)
25195             End If
25196             Me.Adapter.InsertCommand.Parameters(5).Value = CType(GrandTotal,Decimal)
25197             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
25198             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
25199                         <> Global.System.Data.ConnectionState.Open) Then
25200                 Me.Adapter.InsertCommand.Connection.Open
25201             End If
25202             Try
25203                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
25204                 Return returnValue
25205             Finally
25206                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
25207                     Me.Adapter.InsertCommand.Connection.Close
25208                 End If
25209             End Try
25210         End Function
25211         
25212         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25213          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25214          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
25215          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
25216         Public Overloads Overridable Function Update(ByVal Id As Integer, ByVal VoucherNo As String, ByVal Name As String, ByVal _Date As Date, ByVal Details As String, ByVal GrandTotal As Decimal, ByVal Original_Id As Integer, ByVal Original_VoucherNo As String, ByVal Original_Name As String, ByVal Original_Date As Date, ByVal Original_Details As String, ByVal Original_GrandTotal As Decimal) As Integer
25217             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Id,Integer)
25218             If (VoucherNo Is Nothing) Then
25219                 Throw New Global.System.ArgumentNullException("VoucherNo")
25220             Else
25221                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(VoucherNo,String)
25222             End If
25223             If (Name Is Nothing) Then
25224                 Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
25225             Else
25226                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Name,String)
25227             End If
25228             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(_Date,Date)
25229             If (Details Is Nothing) Then
25230                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
25231             Else
25232                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Details,String)
25233             End If
25234             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GrandTotal,Decimal)
25235             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Id,Integer)
25236             If (Original_VoucherNo Is Nothing) Then
25237                 Throw New Global.System.ArgumentNullException("Original_VoucherNo")
25238             Else
25239                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_VoucherNo,String)
25240             End If
25241             If (Original_Name Is Nothing) Then
25242                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object)
25243                 Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
25244             Else
25245                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object)
25246                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Name,String)
25247             End If
25248             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Date,Date)
25249             If (Original_Details Is Nothing) Then
25250                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object)
25251                 Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
25252             Else
25253                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object)
25254                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_Details,String)
25255             End If
25256             Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GrandTotal,Decimal)
25257             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
25258             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
25259                         <> Global.System.Data.ConnectionState.Open) Then
25260                 Me.Adapter.UpdateCommand.Connection.Open
25261             End If
25262             Try
25263                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
25264                 Return returnValue
25265             Finally
25266                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
25267                     Me.Adapter.UpdateCommand.Connection.Close
25268                 End If
25269             End Try
25270         End Function
25271         
25272         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25273          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25274          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
25275          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
25276         Public Overloads Overridable Function Update(ByVal VoucherNo As String, ByVal Name As String, ByVal _Date As Date, ByVal Details As String, ByVal GrandTotal As Decimal, ByVal Original_Id As Integer, ByVal Original_VoucherNo As String, ByVal Original_Name As String, ByVal Original_Date As Date, ByVal Original_Details As String, ByVal Original_GrandTotal As Decimal) As Integer
25277             Return Me.Update(Original_Id, VoucherNo, Name, _Date, Details, GrandTotal, Original_Id, Original_VoucherNo, Original_Name, Original_Date, Original_Details, Original_GrandTotal)
25278         End Function
25279     End Class
25280     
25281     '''<summary>
25282     '''Represents the connection and commands used to retrieve and save data.
25283     '''</summary>
25284     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
25285      Global.System.ComponentModel.ToolboxItem(true), _
25286      Global.System.ComponentModel.DataObjectAttribute(true), _
25287      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
25288         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
25289      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
25290     Partial Public Class Voucher_OtherDetailsTableAdapter
25291         Inherits Global.System.ComponentModel.Component
25292         
25293         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
25294         
25295         Private _connection As Global.System.Data.SqlClient.SqlConnection
25296         
25297         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
25298         
25299         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
25300         
25301         Private _clearBeforeFill As Boolean
25302         
25303         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25304          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25305         Public Sub New()
25306             MyBase.New
25307             Me.ClearBeforeFill = true
25308         End Sub
25309         
25310         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25311          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25312         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
25313             Get
25314                 If (Me._adapter Is Nothing) Then
25315                     Me.InitAdapter
25316                 End If
25317                 Return Me._adapter
25318             End Get
25319         End Property
25320         
25321         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25322          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25323         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
25324             Get
25325                 If (Me._connection Is Nothing) Then
25326                     Me.InitConnection
25327                 End If
25328                 Return Me._connection
25329             End Get
25330             Set
25331                 Me._connection = value
25332                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
25333                     Me.Adapter.InsertCommand.Connection = value
25334                 End If
25335                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
25336                     Me.Adapter.DeleteCommand.Connection = value
25337                 End If
25338                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
25339                     Me.Adapter.UpdateCommand.Connection = value
25340                 End If
25341                 Dim i As Integer = 0
25342                 Do While (i < Me.CommandCollection.Length)
25343                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
25344                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
25345                     End If
25346                     i = (i + 1)
25347                 Loop
25348             End Set
25349         End Property
25350         
25351         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25352          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25353         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
25354             Get
25355                 Return Me._transaction
25356             End Get
25357             Set
25358                 Me._transaction = value
25359                 Dim i As Integer = 0
25360                 Do While (i < Me.CommandCollection.Length)
25361                     Me.CommandCollection(i).Transaction = Me._transaction
25362                     i = (i + 1)
25363                 Loop
25364                 If ((Not (Me.Adapter) Is Nothing) _
25365                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
25366                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
25367                 End If
25368                 If ((Not (Me.Adapter) Is Nothing) _
25369                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
25370                     Me.Adapter.InsertCommand.Transaction = Me._transaction
25371                 End If
25372                 If ((Not (Me.Adapter) Is Nothing) _
25373                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
25374                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
25375                 End If
25376             End Set
25377         End Property
25378         
25379         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25380          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25381         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
25382             Get
25383                 If (Me._commandCollection Is Nothing) Then
25384                     Me.InitCommandCollection
25385                 End If
25386                 Return Me._commandCollection
25387             End Get
25388         End Property
25389         
25390         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25391          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25392         Public Property ClearBeforeFill() As Boolean
25393             Get
25394                 Return Me._clearBeforeFill
25395             End Get
25396             Set
25397                 Me._clearBeforeFill = value
25398             End Set
25399         End Property
25400         
25401         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25402          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25403         Private Sub InitAdapter()
25404             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
25405             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
25406             tableMapping.SourceTable = "Table"
25407             tableMapping.DataSetTable = "Voucher_OtherDetails"
25408             tableMapping.ColumnMappings.Add("VD_ID", "VD_ID")
25409             tableMapping.ColumnMappings.Add("VoucherID", "VoucherID")
25410             tableMapping.ColumnMappings.Add("Particulars", "Particulars")
25411             tableMapping.ColumnMappings.Add("Amount", "Amount")
25412             tableMapping.ColumnMappings.Add("Note", "Note")
25413             Me._adapter.TableMappings.Add(tableMapping)
25414             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
25415             Me._adapter.DeleteCommand.Connection = Me.Connection
25416             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Voucher_OtherDetails] WHERE (([VD_ID] = @Original_VD_ID) AND ("& _
25417                 "[VoucherID] = @Original_VoucherID) AND ([Particulars] = @Original_Particulars) A"& _
25418                 "ND ([Amount] = @Original_Amount))"
25419             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
25420             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VD_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VD_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25421             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VoucherID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VoucherID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25422             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Particulars", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Particulars", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25423             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25424             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
25425             Me._adapter.InsertCommand.Connection = Me.Connection
25426             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Voucher_OtherDetails] ([VoucherID], [Particulars], [Amount], ["& _
25427                 "Note]) VALUES (@VoucherID, @Particulars, @Amount, @Note);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT VD_ID, Voucher"& _
25428                 "ID, Particulars, Amount, Note FROM Voucher_OtherDetails WHERE (VD_ID = SCOPE_IDE"& _
25429                 "NTITY())"
25430             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
25431             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VoucherID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VoucherID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25432             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Particulars", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Particulars", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25433             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25434             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Note", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Note", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25435             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
25436             Me._adapter.UpdateCommand.Connection = Me.Connection
25437             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Voucher_OtherDetails] SET [VoucherID] = @VoucherID, [Particulars] ="& _
25438                 " @Particulars, [Amount] = @Amount, [Note] = @Note WHERE (([VD_ID] = @Original_VD"& _
25439                 "_ID) AND ([VoucherID] = @Original_VoucherID) AND ([Particulars] = @Original_Part"& _
25440                 "iculars) AND ([Amount] = @Original_Amount));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT VD_ID, VoucherID, Particula"& _
25441                 "rs, Amount, Note FROM Voucher_OtherDetails WHERE (VD_ID = @VD_ID)"
25442             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
25443             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VoucherID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VoucherID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25444             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Particulars", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Particulars", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25445             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25446             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Note", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Note", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25447             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VD_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VD_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25448             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VoucherID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VoucherID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25449             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Particulars", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Particulars", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25450             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
25451             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VD_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "VD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
25452         End Sub
25453         
25454         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25455          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25456         Private Sub InitConnection()
25457             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
25458             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
25459         End Sub
25460         
25461         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25462          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25463         Private Sub InitCommandCollection()
25464             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
25465             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
25466             Me._commandCollection(0).Connection = Me.Connection
25467             Me._commandCollection(0).CommandText = "SELECT VD_ID, VoucherID, Particulars, Amount, Note FROM dbo.Voucher_OtherDetails"
25468             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
25469         End Sub
25470         
25471         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25472          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25473          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
25474          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
25475         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet2.Voucher_OtherDetailsDataTable) As Integer
25476             Me.Adapter.SelectCommand = Me.CommandCollection(0)
25477             If (Me.ClearBeforeFill = true) Then
25478                 dataTable.Clear
25479             End If
25480             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
25481             Return returnValue
25482         End Function
25483         
25484         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25485          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25486          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
25487          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
25488         Public Overloads Overridable Function GetData() As SIS_DBDataSet2.Voucher_OtherDetailsDataTable
25489             Me.Adapter.SelectCommand = Me.CommandCollection(0)
25490             Dim dataTable As SIS_DBDataSet2.Voucher_OtherDetailsDataTable = New SIS_DBDataSet2.Voucher_OtherDetailsDataTable()
25491             Me.Adapter.Fill(dataTable)
25492             Return dataTable
25493         End Function
25494         
25495         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25496          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25497          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
25498         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet2.Voucher_OtherDetailsDataTable) As Integer
25499             Return Me.Adapter.Update(dataTable)
25500         End Function
25501         
25502         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25503          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25504          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
25505         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet2) As Integer
25506             Return Me.Adapter.Update(dataSet, "Voucher_OtherDetails")
25507         End Function
25508         
25509         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25510          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25511          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
25512         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
25513             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
25514         End Function
25515         
25516         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25517          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25518          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
25519         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
25520             Return Me.Adapter.Update(dataRows)
25521         End Function
25522         
25523         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25524          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25525          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
25526          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
25527         Public Overloads Overridable Function Delete(ByVal Original_VD_ID As Integer, ByVal Original_VoucherID As Integer, ByVal Original_Particulars As String, ByVal Original_Amount As Decimal) As Integer
25528             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_VD_ID,Integer)
25529             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_VoucherID,Integer)
25530             If (Original_Particulars Is Nothing) Then
25531                 Throw New Global.System.ArgumentNullException("Original_Particulars")
25532             Else
25533                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Particulars,String)
25534             End If
25535             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Amount,Decimal)
25536             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
25537             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
25538                         <> Global.System.Data.ConnectionState.Open) Then
25539                 Me.Adapter.DeleteCommand.Connection.Open
25540             End If
25541             Try
25542                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
25543                 Return returnValue
25544             Finally
25545                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
25546                     Me.Adapter.DeleteCommand.Connection.Close
25547                 End If
25548             End Try
25549         End Function
25550         
25551         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25552          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25553          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
25554          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
25555         Public Overloads Overridable Function Insert(ByVal VoucherID As Integer, ByVal Particulars As String, ByVal Amount As Decimal, ByVal Note As String) As Integer
25556             Me.Adapter.InsertCommand.Parameters(0).Value = CType(VoucherID,Integer)
25557             If (Particulars Is Nothing) Then
25558                 Throw New Global.System.ArgumentNullException("Particulars")
25559             Else
25560                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Particulars,String)
25561             End If
25562             Me.Adapter.InsertCommand.Parameters(2).Value = CType(Amount,Decimal)
25563             If (Note Is Nothing) Then
25564                 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
25565             Else
25566                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Note,String)
25567             End If
25568             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
25569             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
25570                         <> Global.System.Data.ConnectionState.Open) Then
25571                 Me.Adapter.InsertCommand.Connection.Open
25572             End If
25573             Try
25574                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
25575                 Return returnValue
25576             Finally
25577                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
25578                     Me.Adapter.InsertCommand.Connection.Close
25579                 End If
25580             End Try
25581         End Function
25582         
25583         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25584          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25585          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
25586          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
25587         Public Overloads Overridable Function Update(ByVal VoucherID As Integer, ByVal Particulars As String, ByVal Amount As Decimal, ByVal Note As String, ByVal Original_VD_ID As Integer, ByVal Original_VoucherID As Integer, ByVal Original_Particulars As String, ByVal Original_Amount As Decimal, ByVal VD_ID As Integer) As Integer
25588             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(VoucherID,Integer)
25589             If (Particulars Is Nothing) Then
25590                 Throw New Global.System.ArgumentNullException("Particulars")
25591             Else
25592                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Particulars,String)
25593             End If
25594             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Amount,Decimal)
25595             If (Note Is Nothing) Then
25596                 Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
25597             Else
25598                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Note,String)
25599             End If
25600             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_VD_ID,Integer)
25601             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_VoucherID,Integer)
25602             If (Original_Particulars Is Nothing) Then
25603                 Throw New Global.System.ArgumentNullException("Original_Particulars")
25604             Else
25605                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Particulars,String)
25606             End If
25607             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_Amount,Decimal)
25608             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(VD_ID,Integer)
25609             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
25610             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
25611                         <> Global.System.Data.ConnectionState.Open) Then
25612                 Me.Adapter.UpdateCommand.Connection.Open
25613             End If
25614             Try
25615                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
25616                 Return returnValue
25617             Finally
25618                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
25619                     Me.Adapter.UpdateCommand.Connection.Close
25620                 End If
25621             End Try
25622         End Function
25623         
25624         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25625          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25626          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
25627          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
25628         Public Overloads Overridable Function Update(ByVal VoucherID As Integer, ByVal Particulars As String, ByVal Amount As Decimal, ByVal Note As String, ByVal Original_VD_ID As Integer, ByVal Original_VoucherID As Integer, ByVal Original_Particulars As String, ByVal Original_Amount As Decimal) As Integer
25629             Return Me.Update(VoucherID, Particulars, Amount, Note, Original_VD_ID, Original_VoucherID, Original_Particulars, Original_Amount, Original_VD_ID)
25630         End Function
25631     End Class
25632     
25633     '''<summary>
25634     '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
25635     '''</summary>
25636     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
25637      Global.System.ComponentModel.ToolboxItem(true), _
25638      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD"& _
25639         "esigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
25640      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")> _
25641     Partial Public Class TableAdapterManager
25642         Inherits Global.System.ComponentModel.Component
25643         
25644         Private _updateOrder As UpdateOrderOption
25645         
25646         Private _activationTableAdapter As ActivationTableAdapter
25647         
25648         Private _categoryTableAdapter As CategoryTableAdapter
25649         
25650         Private _companyTableAdapter As CompanyTableAdapter
25651         
25652         Private _company_ContactsTableAdapter As Company_ContactsTableAdapter
25653         
25654         Private _customerTableAdapter As CustomerTableAdapter
25655         
25656         Private _invoice_PaymentTableAdapter As Invoice_PaymentTableAdapter
25657         
25658         Private _invoice_ProductTableAdapter As Invoice_ProductTableAdapter
25659         
25660         Private _invoice1_PaymentTableAdapter As Invoice1_PaymentTableAdapter
25661         
25662         Private _invoice1_ProductTableAdapter As Invoice1_ProductTableAdapter
25663         
25664         Private _invoiceInfoTableAdapter As InvoiceInfoTableAdapter
25665         
25666         Private _invoiceInfo1TableAdapter As InvoiceInfo1TableAdapter
25667         
25668         Private _logsTableAdapter As LogsTableAdapter
25669         
25670         Private _productTableAdapter As ProductTableAdapter
25671         
25672         Private _product_JoinTableAdapter As Product_JoinTableAdapter
25673         
25674         Private _quotationTableAdapter As QuotationTableAdapter
25675         
25676         Private _quotation_JoinTableAdapter As Quotation_JoinTableAdapter
25677         
25678         Private _registrationTableAdapter As RegistrationTableAdapter
25679         
25680         Private _serviceTableAdapter As ServiceTableAdapter
25681         
25682         Private _sMSSettingTableAdapter As SMSSettingTableAdapter
25683         
25684         Private _stockTableAdapter As StockTableAdapter
25685         
25686         Private _stock_ProductTableAdapter As Stock_ProductTableAdapter
25687         
25688         Private _subCategoryTableAdapter As SubCategoryTableAdapter
25689         
25690         Private _supplierTableAdapter As SupplierTableAdapter
25691         
25692         Private _temp_StockTableAdapter As Temp_StockTableAdapter
25693         
25694         Private _voucherTableAdapter As VoucherTableAdapter
25695         
25696         Private _voucher_OtherDetailsTableAdapter As Voucher_OtherDetailsTableAdapter
25697         
25698         Private _backupDataSetBeforeUpdate As Boolean
25699         
25700         Private _connection As Global.System.Data.IDbConnection
25701         
25702         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25703          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
25704         Public Property UpdateOrder() As UpdateOrderOption
25705             Get
25706                 Return Me._updateOrder
25707             End Get
25708             Set
25709                 Me._updateOrder = value
25710             End Set
25711         End Property
25712         
25713         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25714          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25715          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
25716             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
25717             "a", "System.Drawing.Design.UITypeEditor")> _
25718         Public Property ActivationTableAdapter() As ActivationTableAdapter
25719             Get
25720                 Return Me._activationTableAdapter
25721             End Get
25722             Set
25723                 Me._activationTableAdapter = value
25724             End Set
25725         End Property
25726         
25727         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25728          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25729          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
25730             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
25731             "a", "System.Drawing.Design.UITypeEditor")> _
25732         Public Property CategoryTableAdapter() As CategoryTableAdapter
25733             Get
25734                 Return Me._categoryTableAdapter
25735             End Get
25736             Set
25737                 Me._categoryTableAdapter = value
25738             End Set
25739         End Property
25740         
25741         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25742          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25743          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
25744             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
25745             "a", "System.Drawing.Design.UITypeEditor")> _
25746         Public Property CompanyTableAdapter() As CompanyTableAdapter
25747             Get
25748                 Return Me._companyTableAdapter
25749             End Get
25750             Set
25751                 Me._companyTableAdapter = value
25752             End Set
25753         End Property
25754         
25755         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25756          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25757          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
25758             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
25759             "a", "System.Drawing.Design.UITypeEditor")> _
25760         Public Property Company_ContactsTableAdapter() As Company_ContactsTableAdapter
25761             Get
25762                 Return Me._company_ContactsTableAdapter
25763             End Get
25764             Set
25765                 Me._company_ContactsTableAdapter = value
25766             End Set
25767         End Property
25768         
25769         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25770          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25771          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
25772             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
25773             "a", "System.Drawing.Design.UITypeEditor")> _
25774         Public Property CustomerTableAdapter() As CustomerTableAdapter
25775             Get
25776                 Return Me._customerTableAdapter
25777             End Get
25778             Set
25779                 Me._customerTableAdapter = value
25780             End Set
25781         End Property
25782         
25783         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25784          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25785          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
25786             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
25787             "a", "System.Drawing.Design.UITypeEditor")> _
25788         Public Property Invoice_PaymentTableAdapter() As Invoice_PaymentTableAdapter
25789             Get
25790                 Return Me._invoice_PaymentTableAdapter
25791             End Get
25792             Set
25793                 Me._invoice_PaymentTableAdapter = value
25794             End Set
25795         End Property
25796         
25797         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25798          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25799          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
25800             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
25801             "a", "System.Drawing.Design.UITypeEditor")> _
25802         Public Property Invoice_ProductTableAdapter() As Invoice_ProductTableAdapter
25803             Get
25804                 Return Me._invoice_ProductTableAdapter
25805             End Get
25806             Set
25807                 Me._invoice_ProductTableAdapter = value
25808             End Set
25809         End Property
25810         
25811         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25812          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25813          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
25814             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
25815             "a", "System.Drawing.Design.UITypeEditor")> _
25816         Public Property Invoice1_PaymentTableAdapter() As Invoice1_PaymentTableAdapter
25817             Get
25818                 Return Me._invoice1_PaymentTableAdapter
25819             End Get
25820             Set
25821                 Me._invoice1_PaymentTableAdapter = value
25822             End Set
25823         End Property
25824         
25825         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25826          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25827          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
25828             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
25829             "a", "System.Drawing.Design.UITypeEditor")> _
25830         Public Property Invoice1_ProductTableAdapter() As Invoice1_ProductTableAdapter
25831             Get
25832                 Return Me._invoice1_ProductTableAdapter
25833             End Get
25834             Set
25835                 Me._invoice1_ProductTableAdapter = value
25836             End Set
25837         End Property
25838         
25839         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25840          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25841          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
25842             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
25843             "a", "System.Drawing.Design.UITypeEditor")> _
25844         Public Property InvoiceInfoTableAdapter() As InvoiceInfoTableAdapter
25845             Get
25846                 Return Me._invoiceInfoTableAdapter
25847             End Get
25848             Set
25849                 Me._invoiceInfoTableAdapter = value
25850             End Set
25851         End Property
25852         
25853         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25854          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25855          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
25856             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
25857             "a", "System.Drawing.Design.UITypeEditor")> _
25858         Public Property InvoiceInfo1TableAdapter() As InvoiceInfo1TableAdapter
25859             Get
25860                 Return Me._invoiceInfo1TableAdapter
25861             End Get
25862             Set
25863                 Me._invoiceInfo1TableAdapter = value
25864             End Set
25865         End Property
25866         
25867         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25868          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25869          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
25870             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
25871             "a", "System.Drawing.Design.UITypeEditor")> _
25872         Public Property LogsTableAdapter() As LogsTableAdapter
25873             Get
25874                 Return Me._logsTableAdapter
25875             End Get
25876             Set
25877                 Me._logsTableAdapter = value
25878             End Set
25879         End Property
25880         
25881         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25882          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25883          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
25884             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
25885             "a", "System.Drawing.Design.UITypeEditor")> _
25886         Public Property ProductTableAdapter() As ProductTableAdapter
25887             Get
25888                 Return Me._productTableAdapter
25889             End Get
25890             Set
25891                 Me._productTableAdapter = value
25892             End Set
25893         End Property
25894         
25895         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25896          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25897          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
25898             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
25899             "a", "System.Drawing.Design.UITypeEditor")> _
25900         Public Property Product_JoinTableAdapter() As Product_JoinTableAdapter
25901             Get
25902                 Return Me._product_JoinTableAdapter
25903             End Get
25904             Set
25905                 Me._product_JoinTableAdapter = value
25906             End Set
25907         End Property
25908         
25909         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25910          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25911          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
25912             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
25913             "a", "System.Drawing.Design.UITypeEditor")> _
25914         Public Property QuotationTableAdapter() As QuotationTableAdapter
25915             Get
25916                 Return Me._quotationTableAdapter
25917             End Get
25918             Set
25919                 Me._quotationTableAdapter = value
25920             End Set
25921         End Property
25922         
25923         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25924          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25925          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
25926             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
25927             "a", "System.Drawing.Design.UITypeEditor")> _
25928         Public Property Quotation_JoinTableAdapter() As Quotation_JoinTableAdapter
25929             Get
25930                 Return Me._quotation_JoinTableAdapter
25931             End Get
25932             Set
25933                 Me._quotation_JoinTableAdapter = value
25934             End Set
25935         End Property
25936         
25937         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25938          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25939          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
25940             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
25941             "a", "System.Drawing.Design.UITypeEditor")> _
25942         Public Property RegistrationTableAdapter() As RegistrationTableAdapter
25943             Get
25944                 Return Me._registrationTableAdapter
25945             End Get
25946             Set
25947                 Me._registrationTableAdapter = value
25948             End Set
25949         End Property
25950         
25951         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25952          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25953          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
25954             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
25955             "a", "System.Drawing.Design.UITypeEditor")> _
25956         Public Property ServiceTableAdapter() As ServiceTableAdapter
25957             Get
25958                 Return Me._serviceTableAdapter
25959             End Get
25960             Set
25961                 Me._serviceTableAdapter = value
25962             End Set
25963         End Property
25964         
25965         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25966          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25967          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
25968             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
25969             "a", "System.Drawing.Design.UITypeEditor")> _
25970         Public Property SMSSettingTableAdapter() As SMSSettingTableAdapter
25971             Get
25972                 Return Me._sMSSettingTableAdapter
25973             End Get
25974             Set
25975                 Me._sMSSettingTableAdapter = value
25976             End Set
25977         End Property
25978         
25979         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25980          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25981          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
25982             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
25983             "a", "System.Drawing.Design.UITypeEditor")> _
25984         Public Property StockTableAdapter() As StockTableAdapter
25985             Get
25986                 Return Me._stockTableAdapter
25987             End Get
25988             Set
25989                 Me._stockTableAdapter = value
25990             End Set
25991         End Property
25992         
25993         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
25994          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
25995          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
25996             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
25997             "a", "System.Drawing.Design.UITypeEditor")> _
25998         Public Property Stock_ProductTableAdapter() As Stock_ProductTableAdapter
25999             Get
26000                 Return Me._stock_ProductTableAdapter
26001             End Get
26002             Set
26003                 Me._stock_ProductTableAdapter = value
26004             End Set
26005         End Property
26006         
26007         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26008          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
26009          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
26010             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
26011             "a", "System.Drawing.Design.UITypeEditor")> _
26012         Public Property SubCategoryTableAdapter() As SubCategoryTableAdapter
26013             Get
26014                 Return Me._subCategoryTableAdapter
26015             End Get
26016             Set
26017                 Me._subCategoryTableAdapter = value
26018             End Set
26019         End Property
26020         
26021         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26022          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
26023          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
26024             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
26025             "a", "System.Drawing.Design.UITypeEditor")> _
26026         Public Property SupplierTableAdapter() As SupplierTableAdapter
26027             Get
26028                 Return Me._supplierTableAdapter
26029             End Get
26030             Set
26031                 Me._supplierTableAdapter = value
26032             End Set
26033         End Property
26034         
26035         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26036          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
26037          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
26038             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
26039             "a", "System.Drawing.Design.UITypeEditor")> _
26040         Public Property Temp_StockTableAdapter() As Temp_StockTableAdapter
26041             Get
26042                 Return Me._temp_StockTableAdapter
26043             End Get
26044             Set
26045                 Me._temp_StockTableAdapter = value
26046             End Set
26047         End Property
26048         
26049         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26050          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
26051          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
26052             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
26053             "a", "System.Drawing.Design.UITypeEditor")> _
26054         Public Property VoucherTableAdapter() As VoucherTableAdapter
26055             Get
26056                 Return Me._voucherTableAdapter
26057             End Get
26058             Set
26059                 Me._voucherTableAdapter = value
26060             End Set
26061         End Property
26062         
26063         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26064          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
26065          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
26066             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
26067             "a", "System.Drawing.Design.UITypeEditor")> _
26068         Public Property Voucher_OtherDetailsTableAdapter() As Voucher_OtherDetailsTableAdapter
26069             Get
26070                 Return Me._voucher_OtherDetailsTableAdapter
26071             End Get
26072             Set
26073                 Me._voucher_OtherDetailsTableAdapter = value
26074             End Set
26075         End Property
26076         
26077         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26078          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
26079         Public Property BackupDataSetBeforeUpdate() As Boolean
26080             Get
26081                 Return Me._backupDataSetBeforeUpdate
26082             End Get
26083             Set
26084                 Me._backupDataSetBeforeUpdate = value
26085             End Set
26086         End Property
26087         
26088         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26089          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
26090          Global.System.ComponentModel.Browsable(false)> _
26091         Public Property Connection() As Global.System.Data.IDbConnection
26092             Get
26093                 If (Not (Me._connection) Is Nothing) Then
26094                     Return Me._connection
26095                 End If
26096                 If ((Not (Me._activationTableAdapter) Is Nothing) _
26097                             AndAlso (Not (Me._activationTableAdapter.Connection) Is Nothing)) Then
26098                     Return Me._activationTableAdapter.Connection
26099                 End If
26100                 If ((Not (Me._categoryTableAdapter) Is Nothing) _
26101                             AndAlso (Not (Me._categoryTableAdapter.Connection) Is Nothing)) Then
26102                     Return Me._categoryTableAdapter.Connection
26103                 End If
26104                 If ((Not (Me._companyTableAdapter) Is Nothing) _
26105                             AndAlso (Not (Me._companyTableAdapter.Connection) Is Nothing)) Then
26106                     Return Me._companyTableAdapter.Connection
26107                 End If
26108                 If ((Not (Me._company_ContactsTableAdapter) Is Nothing) _
26109                             AndAlso (Not (Me._company_ContactsTableAdapter.Connection) Is Nothing)) Then
26110                     Return Me._company_ContactsTableAdapter.Connection
26111                 End If
26112                 If ((Not (Me._customerTableAdapter) Is Nothing) _
26113                             AndAlso (Not (Me._customerTableAdapter.Connection) Is Nothing)) Then
26114                     Return Me._customerTableAdapter.Connection
26115                 End If
26116                 If ((Not (Me._invoice_PaymentTableAdapter) Is Nothing) _
26117                             AndAlso (Not (Me._invoice_PaymentTableAdapter.Connection) Is Nothing)) Then
26118                     Return Me._invoice_PaymentTableAdapter.Connection
26119                 End If
26120                 If ((Not (Me._invoice_ProductTableAdapter) Is Nothing) _
26121                             AndAlso (Not (Me._invoice_ProductTableAdapter.Connection) Is Nothing)) Then
26122                     Return Me._invoice_ProductTableAdapter.Connection
26123                 End If
26124                 If ((Not (Me._invoice1_PaymentTableAdapter) Is Nothing) _
26125                             AndAlso (Not (Me._invoice1_PaymentTableAdapter.Connection) Is Nothing)) Then
26126                     Return Me._invoice1_PaymentTableAdapter.Connection
26127                 End If
26128                 If ((Not (Me._invoice1_ProductTableAdapter) Is Nothing) _
26129                             AndAlso (Not (Me._invoice1_ProductTableAdapter.Connection) Is Nothing)) Then
26130                     Return Me._invoice1_ProductTableAdapter.Connection
26131                 End If
26132                 If ((Not (Me._invoiceInfoTableAdapter) Is Nothing) _
26133                             AndAlso (Not (Me._invoiceInfoTableAdapter.Connection) Is Nothing)) Then
26134                     Return Me._invoiceInfoTableAdapter.Connection
26135                 End If
26136                 If ((Not (Me._invoiceInfo1TableAdapter) Is Nothing) _
26137                             AndAlso (Not (Me._invoiceInfo1TableAdapter.Connection) Is Nothing)) Then
26138                     Return Me._invoiceInfo1TableAdapter.Connection
26139                 End If
26140                 If ((Not (Me._logsTableAdapter) Is Nothing) _
26141                             AndAlso (Not (Me._logsTableAdapter.Connection) Is Nothing)) Then
26142                     Return Me._logsTableAdapter.Connection
26143                 End If
26144                 If ((Not (Me._productTableAdapter) Is Nothing) _
26145                             AndAlso (Not (Me._productTableAdapter.Connection) Is Nothing)) Then
26146                     Return Me._productTableAdapter.Connection
26147                 End If
26148                 If ((Not (Me._product_JoinTableAdapter) Is Nothing) _
26149                             AndAlso (Not (Me._product_JoinTableAdapter.Connection) Is Nothing)) Then
26150                     Return Me._product_JoinTableAdapter.Connection
26151                 End If
26152                 If ((Not (Me._quotationTableAdapter) Is Nothing) _
26153                             AndAlso (Not (Me._quotationTableAdapter.Connection) Is Nothing)) Then
26154                     Return Me._quotationTableAdapter.Connection
26155                 End If
26156                 If ((Not (Me._quotation_JoinTableAdapter) Is Nothing) _
26157                             AndAlso (Not (Me._quotation_JoinTableAdapter.Connection) Is Nothing)) Then
26158                     Return Me._quotation_JoinTableAdapter.Connection
26159                 End If
26160                 If ((Not (Me._registrationTableAdapter) Is Nothing) _
26161                             AndAlso (Not (Me._registrationTableAdapter.Connection) Is Nothing)) Then
26162                     Return Me._registrationTableAdapter.Connection
26163                 End If
26164                 If ((Not (Me._serviceTableAdapter) Is Nothing) _
26165                             AndAlso (Not (Me._serviceTableAdapter.Connection) Is Nothing)) Then
26166                     Return Me._serviceTableAdapter.Connection
26167                 End If
26168                 If ((Not (Me._sMSSettingTableAdapter) Is Nothing) _
26169                             AndAlso (Not (Me._sMSSettingTableAdapter.Connection) Is Nothing)) Then
26170                     Return Me._sMSSettingTableAdapter.Connection
26171                 End If
26172                 If ((Not (Me._stockTableAdapter) Is Nothing) _
26173                             AndAlso (Not (Me._stockTableAdapter.Connection) Is Nothing)) Then
26174                     Return Me._stockTableAdapter.Connection
26175                 End If
26176                 If ((Not (Me._stock_ProductTableAdapter) Is Nothing) _
26177                             AndAlso (Not (Me._stock_ProductTableAdapter.Connection) Is Nothing)) Then
26178                     Return Me._stock_ProductTableAdapter.Connection
26179                 End If
26180                 If ((Not (Me._subCategoryTableAdapter) Is Nothing) _
26181                             AndAlso (Not (Me._subCategoryTableAdapter.Connection) Is Nothing)) Then
26182                     Return Me._subCategoryTableAdapter.Connection
26183                 End If
26184                 If ((Not (Me._supplierTableAdapter) Is Nothing) _
26185                             AndAlso (Not (Me._supplierTableAdapter.Connection) Is Nothing)) Then
26186                     Return Me._supplierTableAdapter.Connection
26187                 End If
26188                 If ((Not (Me._temp_StockTableAdapter) Is Nothing) _
26189                             AndAlso (Not (Me._temp_StockTableAdapter.Connection) Is Nothing)) Then
26190                     Return Me._temp_StockTableAdapter.Connection
26191                 End If
26192                 If ((Not (Me._voucherTableAdapter) Is Nothing) _
26193                             AndAlso (Not (Me._voucherTableAdapter.Connection) Is Nothing)) Then
26194                     Return Me._voucherTableAdapter.Connection
26195                 End If
26196                 If ((Not (Me._voucher_OtherDetailsTableAdapter) Is Nothing) _
26197                             AndAlso (Not (Me._voucher_OtherDetailsTableAdapter.Connection) Is Nothing)) Then
26198                     Return Me._voucher_OtherDetailsTableAdapter.Connection
26199                 End If
26200                 Return Nothing
26201             End Get
26202             Set
26203                 Me._connection = value
26204             End Set
26205         End Property
26206         
26207         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26208          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
26209          Global.System.ComponentModel.Browsable(false)> _
26210         Public ReadOnly Property TableAdapterInstanceCount() As Integer
26211             Get
26212                 Dim count As Integer = 0
26213                 If (Not (Me._activationTableAdapter) Is Nothing) Then
26214                     count = (count + 1)
26215                 End If
26216                 If (Not (Me._categoryTableAdapter) Is Nothing) Then
26217                     count = (count + 1)
26218                 End If
26219                 If (Not (Me._companyTableAdapter) Is Nothing) Then
26220                     count = (count + 1)
26221                 End If
26222                 If (Not (Me._company_ContactsTableAdapter) Is Nothing) Then
26223                     count = (count + 1)
26224                 End If
26225                 If (Not (Me._customerTableAdapter) Is Nothing) Then
26226                     count = (count + 1)
26227                 End If
26228                 If (Not (Me._invoice_PaymentTableAdapter) Is Nothing) Then
26229                     count = (count + 1)
26230                 End If
26231                 If (Not (Me._invoice_ProductTableAdapter) Is Nothing) Then
26232                     count = (count + 1)
26233                 End If
26234                 If (Not (Me._invoice1_PaymentTableAdapter) Is Nothing) Then
26235                     count = (count + 1)
26236                 End If
26237                 If (Not (Me._invoice1_ProductTableAdapter) Is Nothing) Then
26238                     count = (count + 1)
26239                 End If
26240                 If (Not (Me._invoiceInfoTableAdapter) Is Nothing) Then
26241                     count = (count + 1)
26242                 End If
26243                 If (Not (Me._invoiceInfo1TableAdapter) Is Nothing) Then
26244                     count = (count + 1)
26245                 End If
26246                 If (Not (Me._logsTableAdapter) Is Nothing) Then
26247                     count = (count + 1)
26248                 End If
26249                 If (Not (Me._productTableAdapter) Is Nothing) Then
26250                     count = (count + 1)
26251                 End If
26252                 If (Not (Me._product_JoinTableAdapter) Is Nothing) Then
26253                     count = (count + 1)
26254                 End If
26255                 If (Not (Me._quotationTableAdapter) Is Nothing) Then
26256                     count = (count + 1)
26257                 End If
26258                 If (Not (Me._quotation_JoinTableAdapter) Is Nothing) Then
26259                     count = (count + 1)
26260                 End If
26261                 If (Not (Me._registrationTableAdapter) Is Nothing) Then
26262                     count = (count + 1)
26263                 End If
26264                 If (Not (Me._serviceTableAdapter) Is Nothing) Then
26265                     count = (count + 1)
26266                 End If
26267                 If (Not (Me._sMSSettingTableAdapter) Is Nothing) Then
26268                     count = (count + 1)
26269                 End If
26270                 If (Not (Me._stockTableAdapter) Is Nothing) Then
26271                     count = (count + 1)
26272                 End If
26273                 If (Not (Me._stock_ProductTableAdapter) Is Nothing) Then
26274                     count = (count + 1)
26275                 End If
26276                 If (Not (Me._subCategoryTableAdapter) Is Nothing) Then
26277                     count = (count + 1)
26278                 End If
26279                 If (Not (Me._supplierTableAdapter) Is Nothing) Then
26280                     count = (count + 1)
26281                 End If
26282                 If (Not (Me._temp_StockTableAdapter) Is Nothing) Then
26283                     count = (count + 1)
26284                 End If
26285                 If (Not (Me._voucherTableAdapter) Is Nothing) Then
26286                     count = (count + 1)
26287                 End If
26288                 If (Not (Me._voucher_OtherDetailsTableAdapter) Is Nothing) Then
26289                     count = (count + 1)
26290                 End If
26291                 Return count
26292             End Get
26293         End Property
26294         
26295         '''<summary>
26296         '''Update rows in top-down order.
26297         '''</summary>
26298         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26299          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
26300         Private Function UpdateUpdatedRows(ByVal dataSet As SIS_DBDataSet2, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
26301             Dim result As Integer = 0
26302             If (Not (Me._categoryTableAdapter) Is Nothing) Then
26303                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Category.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26304                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26305                 If ((Not (updatedRows) Is Nothing) _
26306                             AndAlso (0 < updatedRows.Length)) Then
26307                     result = (result + Me._categoryTableAdapter.Update(updatedRows))
26308                     allChangedRows.AddRange(updatedRows)
26309                 End If
26310             End If
26311             If (Not (Me._customerTableAdapter) Is Nothing) Then
26312                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Customer.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26313                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26314                 If ((Not (updatedRows) Is Nothing) _
26315                             AndAlso (0 < updatedRows.Length)) Then
26316                     result = (result + Me._customerTableAdapter.Update(updatedRows))
26317                     allChangedRows.AddRange(updatedRows)
26318                 End If
26319             End If
26320             If (Not (Me._serviceTableAdapter) Is Nothing) Then
26321                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Service.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26322                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26323                 If ((Not (updatedRows) Is Nothing) _
26324                             AndAlso (0 < updatedRows.Length)) Then
26325                     result = (result + Me._serviceTableAdapter.Update(updatedRows))
26326                     allChangedRows.AddRange(updatedRows)
26327                 End If
26328             End If
26329             If (Not (Me._supplierTableAdapter) Is Nothing) Then
26330                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Supplier.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26331                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26332                 If ((Not (updatedRows) Is Nothing) _
26333                             AndAlso (0 < updatedRows.Length)) Then
26334                     result = (result + Me._supplierTableAdapter.Update(updatedRows))
26335                     allChangedRows.AddRange(updatedRows)
26336                 End If
26337             End If
26338             If (Not (Me._subCategoryTableAdapter) Is Nothing) Then
26339                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.SubCategory.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26340                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26341                 If ((Not (updatedRows) Is Nothing) _
26342                             AndAlso (0 < updatedRows.Length)) Then
26343                     result = (result + Me._subCategoryTableAdapter.Update(updatedRows))
26344                     allChangedRows.AddRange(updatedRows)
26345                 End If
26346             End If
26347             If (Not (Me._stockTableAdapter) Is Nothing) Then
26348                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Stock.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26349                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26350                 If ((Not (updatedRows) Is Nothing) _
26351                             AndAlso (0 < updatedRows.Length)) Then
26352                     result = (result + Me._stockTableAdapter.Update(updatedRows))
26353                     allChangedRows.AddRange(updatedRows)
26354                 End If
26355             End If
26356             If (Not (Me._invoiceInfo1TableAdapter) Is Nothing) Then
26357                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.InvoiceInfo1.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26358                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26359                 If ((Not (updatedRows) Is Nothing) _
26360                             AndAlso (0 < updatedRows.Length)) Then
26361                     result = (result + Me._invoiceInfo1TableAdapter.Update(updatedRows))
26362                     allChangedRows.AddRange(updatedRows)
26363                 End If
26364             End If
26365             If (Not (Me._quotationTableAdapter) Is Nothing) Then
26366                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Quotation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26367                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26368                 If ((Not (updatedRows) Is Nothing) _
26369                             AndAlso (0 < updatedRows.Length)) Then
26370                     result = (result + Me._quotationTableAdapter.Update(updatedRows))
26371                     allChangedRows.AddRange(updatedRows)
26372                 End If
26373             End If
26374             If (Not (Me._registrationTableAdapter) Is Nothing) Then
26375                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Registration.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26376                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26377                 If ((Not (updatedRows) Is Nothing) _
26378                             AndAlso (0 < updatedRows.Length)) Then
26379                     result = (result + Me._registrationTableAdapter.Update(updatedRows))
26380                     allChangedRows.AddRange(updatedRows)
26381                 End If
26382             End If
26383             If (Not (Me._invoiceInfoTableAdapter) Is Nothing) Then
26384                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.InvoiceInfo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26385                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26386                 If ((Not (updatedRows) Is Nothing) _
26387                             AndAlso (0 < updatedRows.Length)) Then
26388                     result = (result + Me._invoiceInfoTableAdapter.Update(updatedRows))
26389                     allChangedRows.AddRange(updatedRows)
26390                 End If
26391             End If
26392             If (Not (Me._voucherTableAdapter) Is Nothing) Then
26393                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Voucher.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26394                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26395                 If ((Not (updatedRows) Is Nothing) _
26396                             AndAlso (0 < updatedRows.Length)) Then
26397                     result = (result + Me._voucherTableAdapter.Update(updatedRows))
26398                     allChangedRows.AddRange(updatedRows)
26399                 End If
26400             End If
26401             If (Not (Me._productTableAdapter) Is Nothing) Then
26402                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26403                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26404                 If ((Not (updatedRows) Is Nothing) _
26405                             AndAlso (0 < updatedRows.Length)) Then
26406                     result = (result + Me._productTableAdapter.Update(updatedRows))
26407                     allChangedRows.AddRange(updatedRows)
26408                 End If
26409             End If
26410             If (Not (Me._voucher_OtherDetailsTableAdapter) Is Nothing) Then
26411                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Voucher_OtherDetails.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26412                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26413                 If ((Not (updatedRows) Is Nothing) _
26414                             AndAlso (0 < updatedRows.Length)) Then
26415                     result = (result + Me._voucher_OtherDetailsTableAdapter.Update(updatedRows))
26416                     allChangedRows.AddRange(updatedRows)
26417                 End If
26418             End If
26419             If (Not (Me._temp_StockTableAdapter) Is Nothing) Then
26420                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Temp_Stock.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26421                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26422                 If ((Not (updatedRows) Is Nothing) _
26423                             AndAlso (0 < updatedRows.Length)) Then
26424                     result = (result + Me._temp_StockTableAdapter.Update(updatedRows))
26425                     allChangedRows.AddRange(updatedRows)
26426                 End If
26427             End If
26428             If (Not (Me._stock_ProductTableAdapter) Is Nothing) Then
26429                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Stock_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26430                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26431                 If ((Not (updatedRows) Is Nothing) _
26432                             AndAlso (0 < updatedRows.Length)) Then
26433                     result = (result + Me._stock_ProductTableAdapter.Update(updatedRows))
26434                     allChangedRows.AddRange(updatedRows)
26435                 End If
26436             End If
26437             If (Not (Me._sMSSettingTableAdapter) Is Nothing) Then
26438                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.SMSSetting.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26439                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26440                 If ((Not (updatedRows) Is Nothing) _
26441                             AndAlso (0 < updatedRows.Length)) Then
26442                     result = (result + Me._sMSSettingTableAdapter.Update(updatedRows))
26443                     allChangedRows.AddRange(updatedRows)
26444                 End If
26445             End If
26446             If (Not (Me._invoice_ProductTableAdapter) Is Nothing) Then
26447                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Invoice_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26448                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26449                 If ((Not (updatedRows) Is Nothing) _
26450                             AndAlso (0 < updatedRows.Length)) Then
26451                     result = (result + Me._invoice_ProductTableAdapter.Update(updatedRows))
26452                     allChangedRows.AddRange(updatedRows)
26453                 End If
26454             End If
26455             If (Not (Me._invoice1_PaymentTableAdapter) Is Nothing) Then
26456                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Invoice1_Payment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26457                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26458                 If ((Not (updatedRows) Is Nothing) _
26459                             AndAlso (0 < updatedRows.Length)) Then
26460                     result = (result + Me._invoice1_PaymentTableAdapter.Update(updatedRows))
26461                     allChangedRows.AddRange(updatedRows)
26462                 End If
26463             End If
26464             If (Not (Me._invoice_PaymentTableAdapter) Is Nothing) Then
26465                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Invoice_Payment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26466                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26467                 If ((Not (updatedRows) Is Nothing) _
26468                             AndAlso (0 < updatedRows.Length)) Then
26469                     result = (result + Me._invoice_PaymentTableAdapter.Update(updatedRows))
26470                     allChangedRows.AddRange(updatedRows)
26471                 End If
26472             End If
26473             If (Not (Me._companyTableAdapter) Is Nothing) Then
26474                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Company.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26475                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26476                 If ((Not (updatedRows) Is Nothing) _
26477                             AndAlso (0 < updatedRows.Length)) Then
26478                     result = (result + Me._companyTableAdapter.Update(updatedRows))
26479                     allChangedRows.AddRange(updatedRows)
26480                 End If
26481             End If
26482             If (Not (Me._company_ContactsTableAdapter) Is Nothing) Then
26483                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Company_Contacts.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26484                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26485                 If ((Not (updatedRows) Is Nothing) _
26486                             AndAlso (0 < updatedRows.Length)) Then
26487                     result = (result + Me._company_ContactsTableAdapter.Update(updatedRows))
26488                     allChangedRows.AddRange(updatedRows)
26489                 End If
26490             End If
26491             If (Not (Me._product_JoinTableAdapter) Is Nothing) Then
26492                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Product_Join.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26493                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26494                 If ((Not (updatedRows) Is Nothing) _
26495                             AndAlso (0 < updatedRows.Length)) Then
26496                     result = (result + Me._product_JoinTableAdapter.Update(updatedRows))
26497                     allChangedRows.AddRange(updatedRows)
26498                 End If
26499             End If
26500             If (Not (Me._quotation_JoinTableAdapter) Is Nothing) Then
26501                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Quotation_Join.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26502                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26503                 If ((Not (updatedRows) Is Nothing) _
26504                             AndAlso (0 < updatedRows.Length)) Then
26505                     result = (result + Me._quotation_JoinTableAdapter.Update(updatedRows))
26506                     allChangedRows.AddRange(updatedRows)
26507                 End If
26508             End If
26509             If (Not (Me._activationTableAdapter) Is Nothing) Then
26510                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Activation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26511                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26512                 If ((Not (updatedRows) Is Nothing) _
26513                             AndAlso (0 < updatedRows.Length)) Then
26514                     result = (result + Me._activationTableAdapter.Update(updatedRows))
26515                     allChangedRows.AddRange(updatedRows)
26516                 End If
26517             End If
26518             If (Not (Me._invoice1_ProductTableAdapter) Is Nothing) Then
26519                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Invoice1_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26520                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26521                 If ((Not (updatedRows) Is Nothing) _
26522                             AndAlso (0 < updatedRows.Length)) Then
26523                     result = (result + Me._invoice1_ProductTableAdapter.Update(updatedRows))
26524                     allChangedRows.AddRange(updatedRows)
26525                 End If
26526             End If
26527             If (Not (Me._logsTableAdapter) Is Nothing) Then
26528                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Logs.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
26529                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
26530                 If ((Not (updatedRows) Is Nothing) _
26531                             AndAlso (0 < updatedRows.Length)) Then
26532                     result = (result + Me._logsTableAdapter.Update(updatedRows))
26533                     allChangedRows.AddRange(updatedRows)
26534                 End If
26535             End If
26536             Return result
26537         End Function
26538         
26539         '''<summary>
26540         '''Insert rows in top-down order.
26541         '''</summary>
26542         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26543          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
26544         Private Function UpdateInsertedRows(ByVal dataSet As SIS_DBDataSet2, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
26545             Dim result As Integer = 0
26546             If (Not (Me._categoryTableAdapter) Is Nothing) Then
26547                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Category.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26548                 If ((Not (addedRows) Is Nothing) _
26549                             AndAlso (0 < addedRows.Length)) Then
26550                     result = (result + Me._categoryTableAdapter.Update(addedRows))
26551                     allAddedRows.AddRange(addedRows)
26552                 End If
26553             End If
26554             If (Not (Me._customerTableAdapter) Is Nothing) Then
26555                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Customer.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26556                 If ((Not (addedRows) Is Nothing) _
26557                             AndAlso (0 < addedRows.Length)) Then
26558                     result = (result + Me._customerTableAdapter.Update(addedRows))
26559                     allAddedRows.AddRange(addedRows)
26560                 End If
26561             End If
26562             If (Not (Me._serviceTableAdapter) Is Nothing) Then
26563                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Service.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26564                 If ((Not (addedRows) Is Nothing) _
26565                             AndAlso (0 < addedRows.Length)) Then
26566                     result = (result + Me._serviceTableAdapter.Update(addedRows))
26567                     allAddedRows.AddRange(addedRows)
26568                 End If
26569             End If
26570             If (Not (Me._supplierTableAdapter) Is Nothing) Then
26571                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Supplier.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26572                 If ((Not (addedRows) Is Nothing) _
26573                             AndAlso (0 < addedRows.Length)) Then
26574                     result = (result + Me._supplierTableAdapter.Update(addedRows))
26575                     allAddedRows.AddRange(addedRows)
26576                 End If
26577             End If
26578             If (Not (Me._subCategoryTableAdapter) Is Nothing) Then
26579                 Dim addedRows() As Global.System.Data.DataRow = dataSet.SubCategory.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26580                 If ((Not (addedRows) Is Nothing) _
26581                             AndAlso (0 < addedRows.Length)) Then
26582                     result = (result + Me._subCategoryTableAdapter.Update(addedRows))
26583                     allAddedRows.AddRange(addedRows)
26584                 End If
26585             End If
26586             If (Not (Me._stockTableAdapter) Is Nothing) Then
26587                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Stock.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26588                 If ((Not (addedRows) Is Nothing) _
26589                             AndAlso (0 < addedRows.Length)) Then
26590                     result = (result + Me._stockTableAdapter.Update(addedRows))
26591                     allAddedRows.AddRange(addedRows)
26592                 End If
26593             End If
26594             If (Not (Me._invoiceInfo1TableAdapter) Is Nothing) Then
26595                 Dim addedRows() As Global.System.Data.DataRow = dataSet.InvoiceInfo1.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26596                 If ((Not (addedRows) Is Nothing) _
26597                             AndAlso (0 < addedRows.Length)) Then
26598                     result = (result + Me._invoiceInfo1TableAdapter.Update(addedRows))
26599                     allAddedRows.AddRange(addedRows)
26600                 End If
26601             End If
26602             If (Not (Me._quotationTableAdapter) Is Nothing) Then
26603                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Quotation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26604                 If ((Not (addedRows) Is Nothing) _
26605                             AndAlso (0 < addedRows.Length)) Then
26606                     result = (result + Me._quotationTableAdapter.Update(addedRows))
26607                     allAddedRows.AddRange(addedRows)
26608                 End If
26609             End If
26610             If (Not (Me._registrationTableAdapter) Is Nothing) Then
26611                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Registration.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26612                 If ((Not (addedRows) Is Nothing) _
26613                             AndAlso (0 < addedRows.Length)) Then
26614                     result = (result + Me._registrationTableAdapter.Update(addedRows))
26615                     allAddedRows.AddRange(addedRows)
26616                 End If
26617             End If
26618             If (Not (Me._invoiceInfoTableAdapter) Is Nothing) Then
26619                 Dim addedRows() As Global.System.Data.DataRow = dataSet.InvoiceInfo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26620                 If ((Not (addedRows) Is Nothing) _
26621                             AndAlso (0 < addedRows.Length)) Then
26622                     result = (result + Me._invoiceInfoTableAdapter.Update(addedRows))
26623                     allAddedRows.AddRange(addedRows)
26624                 End If
26625             End If
26626             If (Not (Me._voucherTableAdapter) Is Nothing) Then
26627                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Voucher.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26628                 If ((Not (addedRows) Is Nothing) _
26629                             AndAlso (0 < addedRows.Length)) Then
26630                     result = (result + Me._voucherTableAdapter.Update(addedRows))
26631                     allAddedRows.AddRange(addedRows)
26632                 End If
26633             End If
26634             If (Not (Me._productTableAdapter) Is Nothing) Then
26635                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26636                 If ((Not (addedRows) Is Nothing) _
26637                             AndAlso (0 < addedRows.Length)) Then
26638                     result = (result + Me._productTableAdapter.Update(addedRows))
26639                     allAddedRows.AddRange(addedRows)
26640                 End If
26641             End If
26642             If (Not (Me._voucher_OtherDetailsTableAdapter) Is Nothing) Then
26643                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Voucher_OtherDetails.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26644                 If ((Not (addedRows) Is Nothing) _
26645                             AndAlso (0 < addedRows.Length)) Then
26646                     result = (result + Me._voucher_OtherDetailsTableAdapter.Update(addedRows))
26647                     allAddedRows.AddRange(addedRows)
26648                 End If
26649             End If
26650             If (Not (Me._temp_StockTableAdapter) Is Nothing) Then
26651                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Temp_Stock.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26652                 If ((Not (addedRows) Is Nothing) _
26653                             AndAlso (0 < addedRows.Length)) Then
26654                     result = (result + Me._temp_StockTableAdapter.Update(addedRows))
26655                     allAddedRows.AddRange(addedRows)
26656                 End If
26657             End If
26658             If (Not (Me._stock_ProductTableAdapter) Is Nothing) Then
26659                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Stock_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26660                 If ((Not (addedRows) Is Nothing) _
26661                             AndAlso (0 < addedRows.Length)) Then
26662                     result = (result + Me._stock_ProductTableAdapter.Update(addedRows))
26663                     allAddedRows.AddRange(addedRows)
26664                 End If
26665             End If
26666             If (Not (Me._sMSSettingTableAdapter) Is Nothing) Then
26667                 Dim addedRows() As Global.System.Data.DataRow = dataSet.SMSSetting.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26668                 If ((Not (addedRows) Is Nothing) _
26669                             AndAlso (0 < addedRows.Length)) Then
26670                     result = (result + Me._sMSSettingTableAdapter.Update(addedRows))
26671                     allAddedRows.AddRange(addedRows)
26672                 End If
26673             End If
26674             If (Not (Me._invoice_ProductTableAdapter) Is Nothing) Then
26675                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Invoice_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26676                 If ((Not (addedRows) Is Nothing) _
26677                             AndAlso (0 < addedRows.Length)) Then
26678                     result = (result + Me._invoice_ProductTableAdapter.Update(addedRows))
26679                     allAddedRows.AddRange(addedRows)
26680                 End If
26681             End If
26682             If (Not (Me._invoice1_PaymentTableAdapter) Is Nothing) Then
26683                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Invoice1_Payment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26684                 If ((Not (addedRows) Is Nothing) _
26685                             AndAlso (0 < addedRows.Length)) Then
26686                     result = (result + Me._invoice1_PaymentTableAdapter.Update(addedRows))
26687                     allAddedRows.AddRange(addedRows)
26688                 End If
26689             End If
26690             If (Not (Me._invoice_PaymentTableAdapter) Is Nothing) Then
26691                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Invoice_Payment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26692                 If ((Not (addedRows) Is Nothing) _
26693                             AndAlso (0 < addedRows.Length)) Then
26694                     result = (result + Me._invoice_PaymentTableAdapter.Update(addedRows))
26695                     allAddedRows.AddRange(addedRows)
26696                 End If
26697             End If
26698             If (Not (Me._companyTableAdapter) Is Nothing) Then
26699                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Company.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26700                 If ((Not (addedRows) Is Nothing) _
26701                             AndAlso (0 < addedRows.Length)) Then
26702                     result = (result + Me._companyTableAdapter.Update(addedRows))
26703                     allAddedRows.AddRange(addedRows)
26704                 End If
26705             End If
26706             If (Not (Me._company_ContactsTableAdapter) Is Nothing) Then
26707                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Company_Contacts.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26708                 If ((Not (addedRows) Is Nothing) _
26709                             AndAlso (0 < addedRows.Length)) Then
26710                     result = (result + Me._company_ContactsTableAdapter.Update(addedRows))
26711                     allAddedRows.AddRange(addedRows)
26712                 End If
26713             End If
26714             If (Not (Me._product_JoinTableAdapter) Is Nothing) Then
26715                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Product_Join.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26716                 If ((Not (addedRows) Is Nothing) _
26717                             AndAlso (0 < addedRows.Length)) Then
26718                     result = (result + Me._product_JoinTableAdapter.Update(addedRows))
26719                     allAddedRows.AddRange(addedRows)
26720                 End If
26721             End If
26722             If (Not (Me._quotation_JoinTableAdapter) Is Nothing) Then
26723                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Quotation_Join.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26724                 If ((Not (addedRows) Is Nothing) _
26725                             AndAlso (0 < addedRows.Length)) Then
26726                     result = (result + Me._quotation_JoinTableAdapter.Update(addedRows))
26727                     allAddedRows.AddRange(addedRows)
26728                 End If
26729             End If
26730             If (Not (Me._activationTableAdapter) Is Nothing) Then
26731                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Activation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26732                 If ((Not (addedRows) Is Nothing) _
26733                             AndAlso (0 < addedRows.Length)) Then
26734                     result = (result + Me._activationTableAdapter.Update(addedRows))
26735                     allAddedRows.AddRange(addedRows)
26736                 End If
26737             End If
26738             If (Not (Me._invoice1_ProductTableAdapter) Is Nothing) Then
26739                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Invoice1_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26740                 If ((Not (addedRows) Is Nothing) _
26741                             AndAlso (0 < addedRows.Length)) Then
26742                     result = (result + Me._invoice1_ProductTableAdapter.Update(addedRows))
26743                     allAddedRows.AddRange(addedRows)
26744                 End If
26745             End If
26746             If (Not (Me._logsTableAdapter) Is Nothing) Then
26747                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Logs.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
26748                 If ((Not (addedRows) Is Nothing) _
26749                             AndAlso (0 < addedRows.Length)) Then
26750                     result = (result + Me._logsTableAdapter.Update(addedRows))
26751                     allAddedRows.AddRange(addedRows)
26752                 End If
26753             End If
26754             Return result
26755         End Function
26756         
26757         '''<summary>
26758         '''Delete rows in bottom-up order.
26759         '''</summary>
26760         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26761          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
26762         Private Function UpdateDeletedRows(ByVal dataSet As SIS_DBDataSet2, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
26763             Dim result As Integer = 0
26764             If (Not (Me._logsTableAdapter) Is Nothing) Then
26765                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Logs.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26766                 If ((Not (deletedRows) Is Nothing) _
26767                             AndAlso (0 < deletedRows.Length)) Then
26768                     result = (result + Me._logsTableAdapter.Update(deletedRows))
26769                     allChangedRows.AddRange(deletedRows)
26770                 End If
26771             End If
26772             If (Not (Me._invoice1_ProductTableAdapter) Is Nothing) Then
26773                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Invoice1_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26774                 If ((Not (deletedRows) Is Nothing) _
26775                             AndAlso (0 < deletedRows.Length)) Then
26776                     result = (result + Me._invoice1_ProductTableAdapter.Update(deletedRows))
26777                     allChangedRows.AddRange(deletedRows)
26778                 End If
26779             End If
26780             If (Not (Me._activationTableAdapter) Is Nothing) Then
26781                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Activation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26782                 If ((Not (deletedRows) Is Nothing) _
26783                             AndAlso (0 < deletedRows.Length)) Then
26784                     result = (result + Me._activationTableAdapter.Update(deletedRows))
26785                     allChangedRows.AddRange(deletedRows)
26786                 End If
26787             End If
26788             If (Not (Me._quotation_JoinTableAdapter) Is Nothing) Then
26789                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Quotation_Join.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26790                 If ((Not (deletedRows) Is Nothing) _
26791                             AndAlso (0 < deletedRows.Length)) Then
26792                     result = (result + Me._quotation_JoinTableAdapter.Update(deletedRows))
26793                     allChangedRows.AddRange(deletedRows)
26794                 End If
26795             End If
26796             If (Not (Me._product_JoinTableAdapter) Is Nothing) Then
26797                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Product_Join.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26798                 If ((Not (deletedRows) Is Nothing) _
26799                             AndAlso (0 < deletedRows.Length)) Then
26800                     result = (result + Me._product_JoinTableAdapter.Update(deletedRows))
26801                     allChangedRows.AddRange(deletedRows)
26802                 End If
26803             End If
26804             If (Not (Me._company_ContactsTableAdapter) Is Nothing) Then
26805                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Company_Contacts.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26806                 If ((Not (deletedRows) Is Nothing) _
26807                             AndAlso (0 < deletedRows.Length)) Then
26808                     result = (result + Me._company_ContactsTableAdapter.Update(deletedRows))
26809                     allChangedRows.AddRange(deletedRows)
26810                 End If
26811             End If
26812             If (Not (Me._companyTableAdapter) Is Nothing) Then
26813                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Company.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26814                 If ((Not (deletedRows) Is Nothing) _
26815                             AndAlso (0 < deletedRows.Length)) Then
26816                     result = (result + Me._companyTableAdapter.Update(deletedRows))
26817                     allChangedRows.AddRange(deletedRows)
26818                 End If
26819             End If
26820             If (Not (Me._invoice_PaymentTableAdapter) Is Nothing) Then
26821                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Invoice_Payment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26822                 If ((Not (deletedRows) Is Nothing) _
26823                             AndAlso (0 < deletedRows.Length)) Then
26824                     result = (result + Me._invoice_PaymentTableAdapter.Update(deletedRows))
26825                     allChangedRows.AddRange(deletedRows)
26826                 End If
26827             End If
26828             If (Not (Me._invoice1_PaymentTableAdapter) Is Nothing) Then
26829                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Invoice1_Payment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26830                 If ((Not (deletedRows) Is Nothing) _
26831                             AndAlso (0 < deletedRows.Length)) Then
26832                     result = (result + Me._invoice1_PaymentTableAdapter.Update(deletedRows))
26833                     allChangedRows.AddRange(deletedRows)
26834                 End If
26835             End If
26836             If (Not (Me._invoice_ProductTableAdapter) Is Nothing) Then
26837                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Invoice_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26838                 If ((Not (deletedRows) Is Nothing) _
26839                             AndAlso (0 < deletedRows.Length)) Then
26840                     result = (result + Me._invoice_ProductTableAdapter.Update(deletedRows))
26841                     allChangedRows.AddRange(deletedRows)
26842                 End If
26843             End If
26844             If (Not (Me._sMSSettingTableAdapter) Is Nothing) Then
26845                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.SMSSetting.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26846                 If ((Not (deletedRows) Is Nothing) _
26847                             AndAlso (0 < deletedRows.Length)) Then
26848                     result = (result + Me._sMSSettingTableAdapter.Update(deletedRows))
26849                     allChangedRows.AddRange(deletedRows)
26850                 End If
26851             End If
26852             If (Not (Me._stock_ProductTableAdapter) Is Nothing) Then
26853                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Stock_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26854                 If ((Not (deletedRows) Is Nothing) _
26855                             AndAlso (0 < deletedRows.Length)) Then
26856                     result = (result + Me._stock_ProductTableAdapter.Update(deletedRows))
26857                     allChangedRows.AddRange(deletedRows)
26858                 End If
26859             End If
26860             If (Not (Me._temp_StockTableAdapter) Is Nothing) Then
26861                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Temp_Stock.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26862                 If ((Not (deletedRows) Is Nothing) _
26863                             AndAlso (0 < deletedRows.Length)) Then
26864                     result = (result + Me._temp_StockTableAdapter.Update(deletedRows))
26865                     allChangedRows.AddRange(deletedRows)
26866                 End If
26867             End If
26868             If (Not (Me._voucher_OtherDetailsTableAdapter) Is Nothing) Then
26869                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Voucher_OtherDetails.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26870                 If ((Not (deletedRows) Is Nothing) _
26871                             AndAlso (0 < deletedRows.Length)) Then
26872                     result = (result + Me._voucher_OtherDetailsTableAdapter.Update(deletedRows))
26873                     allChangedRows.AddRange(deletedRows)
26874                 End If
26875             End If
26876             If (Not (Me._productTableAdapter) Is Nothing) Then
26877                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26878                 If ((Not (deletedRows) Is Nothing) _
26879                             AndAlso (0 < deletedRows.Length)) Then
26880                     result = (result + Me._productTableAdapter.Update(deletedRows))
26881                     allChangedRows.AddRange(deletedRows)
26882                 End If
26883             End If
26884             If (Not (Me._voucherTableAdapter) Is Nothing) Then
26885                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Voucher.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26886                 If ((Not (deletedRows) Is Nothing) _
26887                             AndAlso (0 < deletedRows.Length)) Then
26888                     result = (result + Me._voucherTableAdapter.Update(deletedRows))
26889                     allChangedRows.AddRange(deletedRows)
26890                 End If
26891             End If
26892             If (Not (Me._invoiceInfoTableAdapter) Is Nothing) Then
26893                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.InvoiceInfo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26894                 If ((Not (deletedRows) Is Nothing) _
26895                             AndAlso (0 < deletedRows.Length)) Then
26896                     result = (result + Me._invoiceInfoTableAdapter.Update(deletedRows))
26897                     allChangedRows.AddRange(deletedRows)
26898                 End If
26899             End If
26900             If (Not (Me._registrationTableAdapter) Is Nothing) Then
26901                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Registration.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26902                 If ((Not (deletedRows) Is Nothing) _
26903                             AndAlso (0 < deletedRows.Length)) Then
26904                     result = (result + Me._registrationTableAdapter.Update(deletedRows))
26905                     allChangedRows.AddRange(deletedRows)
26906                 End If
26907             End If
26908             If (Not (Me._quotationTableAdapter) Is Nothing) Then
26909                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Quotation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26910                 If ((Not (deletedRows) Is Nothing) _
26911                             AndAlso (0 < deletedRows.Length)) Then
26912                     result = (result + Me._quotationTableAdapter.Update(deletedRows))
26913                     allChangedRows.AddRange(deletedRows)
26914                 End If
26915             End If
26916             If (Not (Me._invoiceInfo1TableAdapter) Is Nothing) Then
26917                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.InvoiceInfo1.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26918                 If ((Not (deletedRows) Is Nothing) _
26919                             AndAlso (0 < deletedRows.Length)) Then
26920                     result = (result + Me._invoiceInfo1TableAdapter.Update(deletedRows))
26921                     allChangedRows.AddRange(deletedRows)
26922                 End If
26923             End If
26924             If (Not (Me._stockTableAdapter) Is Nothing) Then
26925                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Stock.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26926                 If ((Not (deletedRows) Is Nothing) _
26927                             AndAlso (0 < deletedRows.Length)) Then
26928                     result = (result + Me._stockTableAdapter.Update(deletedRows))
26929                     allChangedRows.AddRange(deletedRows)
26930                 End If
26931             End If
26932             If (Not (Me._subCategoryTableAdapter) Is Nothing) Then
26933                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.SubCategory.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26934                 If ((Not (deletedRows) Is Nothing) _
26935                             AndAlso (0 < deletedRows.Length)) Then
26936                     result = (result + Me._subCategoryTableAdapter.Update(deletedRows))
26937                     allChangedRows.AddRange(deletedRows)
26938                 End If
26939             End If
26940             If (Not (Me._supplierTableAdapter) Is Nothing) Then
26941                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Supplier.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26942                 If ((Not (deletedRows) Is Nothing) _
26943                             AndAlso (0 < deletedRows.Length)) Then
26944                     result = (result + Me._supplierTableAdapter.Update(deletedRows))
26945                     allChangedRows.AddRange(deletedRows)
26946                 End If
26947             End If
26948             If (Not (Me._serviceTableAdapter) Is Nothing) Then
26949                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Service.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26950                 If ((Not (deletedRows) Is Nothing) _
26951                             AndAlso (0 < deletedRows.Length)) Then
26952                     result = (result + Me._serviceTableAdapter.Update(deletedRows))
26953                     allChangedRows.AddRange(deletedRows)
26954                 End If
26955             End If
26956             If (Not (Me._customerTableAdapter) Is Nothing) Then
26957                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Customer.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26958                 If ((Not (deletedRows) Is Nothing) _
26959                             AndAlso (0 < deletedRows.Length)) Then
26960                     result = (result + Me._customerTableAdapter.Update(deletedRows))
26961                     allChangedRows.AddRange(deletedRows)
26962                 End If
26963             End If
26964             If (Not (Me._categoryTableAdapter) Is Nothing) Then
26965                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Category.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
26966                 If ((Not (deletedRows) Is Nothing) _
26967                             AndAlso (0 < deletedRows.Length)) Then
26968                     result = (result + Me._categoryTableAdapter.Update(deletedRows))
26969                     allChangedRows.AddRange(deletedRows)
26970                 End If
26971             End If
26972             Return result
26973         End Function
26974         
26975         '''<summary>
26976         '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
26977         '''</summary>
26978         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26979          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
26980         Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow()
26981             If ((updatedRows Is Nothing) _
26982                         OrElse (updatedRows.Length < 1)) Then
26983                 Return updatedRows
26984             End If
26985             If ((allAddedRows Is Nothing) _
26986                         OrElse (allAddedRows.Count < 1)) Then
26987                 Return updatedRows
26988             End If
26989             Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
26990             Dim i As Integer = 0
26991             Do While (i < updatedRows.Length)
26992                 Dim row As Global.System.Data.DataRow = updatedRows(i)
26993                 If (allAddedRows.Contains(row) = false) Then
26994                     realUpdatedRows.Add(row)
26995                 End If
26996                 i = (i + 1)
26997             Loop
26998             Return realUpdatedRows.ToArray
26999         End Function
27000         
27001         '''<summary>
27002         '''Update all changes to the dataset.
27003         '''</summary>
27004         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27005          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27006         Public Overridable Function UpdateAll(ByVal dataSet As SIS_DBDataSet2) As Integer
27007             If (dataSet Is Nothing) Then
27008                 Throw New Global.System.ArgumentNullException("dataSet")
27009             End If
27010             If (dataSet.HasChanges = false) Then
27011                 Return 0
27012             End If
27013             If ((Not (Me._activationTableAdapter) Is Nothing) _
27014                         AndAlso (Me.MatchTableAdapterConnection(Me._activationTableAdapter.Connection) = false)) Then
27015                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27016                         "tring.")
27017             End If
27018             If ((Not (Me._categoryTableAdapter) Is Nothing) _
27019                         AndAlso (Me.MatchTableAdapterConnection(Me._categoryTableAdapter.Connection) = false)) Then
27020                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27021                         "tring.")
27022             End If
27023             If ((Not (Me._companyTableAdapter) Is Nothing) _
27024                         AndAlso (Me.MatchTableAdapterConnection(Me._companyTableAdapter.Connection) = false)) Then
27025                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27026                         "tring.")
27027             End If
27028             If ((Not (Me._company_ContactsTableAdapter) Is Nothing) _
27029                         AndAlso (Me.MatchTableAdapterConnection(Me._company_ContactsTableAdapter.Connection) = false)) Then
27030                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27031                         "tring.")
27032             End If
27033             If ((Not (Me._customerTableAdapter) Is Nothing) _
27034                         AndAlso (Me.MatchTableAdapterConnection(Me._customerTableAdapter.Connection) = false)) Then
27035                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27036                         "tring.")
27037             End If
27038             If ((Not (Me._invoice_PaymentTableAdapter) Is Nothing) _
27039                         AndAlso (Me.MatchTableAdapterConnection(Me._invoice_PaymentTableAdapter.Connection) = false)) Then
27040                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27041                         "tring.")
27042             End If
27043             If ((Not (Me._invoice_ProductTableAdapter) Is Nothing) _
27044                         AndAlso (Me.MatchTableAdapterConnection(Me._invoice_ProductTableAdapter.Connection) = false)) Then
27045                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27046                         "tring.")
27047             End If
27048             If ((Not (Me._invoice1_PaymentTableAdapter) Is Nothing) _
27049                         AndAlso (Me.MatchTableAdapterConnection(Me._invoice1_PaymentTableAdapter.Connection) = false)) Then
27050                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27051                         "tring.")
27052             End If
27053             If ((Not (Me._invoice1_ProductTableAdapter) Is Nothing) _
27054                         AndAlso (Me.MatchTableAdapterConnection(Me._invoice1_ProductTableAdapter.Connection) = false)) Then
27055                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27056                         "tring.")
27057             End If
27058             If ((Not (Me._invoiceInfoTableAdapter) Is Nothing) _
27059                         AndAlso (Me.MatchTableAdapterConnection(Me._invoiceInfoTableAdapter.Connection) = false)) Then
27060                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27061                         "tring.")
27062             End If
27063             If ((Not (Me._invoiceInfo1TableAdapter) Is Nothing) _
27064                         AndAlso (Me.MatchTableAdapterConnection(Me._invoiceInfo1TableAdapter.Connection) = false)) Then
27065                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27066                         "tring.")
27067             End If
27068             If ((Not (Me._logsTableAdapter) Is Nothing) _
27069                         AndAlso (Me.MatchTableAdapterConnection(Me._logsTableAdapter.Connection) = false)) Then
27070                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27071                         "tring.")
27072             End If
27073             If ((Not (Me._productTableAdapter) Is Nothing) _
27074                         AndAlso (Me.MatchTableAdapterConnection(Me._productTableAdapter.Connection) = false)) Then
27075                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27076                         "tring.")
27077             End If
27078             If ((Not (Me._product_JoinTableAdapter) Is Nothing) _
27079                         AndAlso (Me.MatchTableAdapterConnection(Me._product_JoinTableAdapter.Connection) = false)) Then
27080                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27081                         "tring.")
27082             End If
27083             If ((Not (Me._quotationTableAdapter) Is Nothing) _
27084                         AndAlso (Me.MatchTableAdapterConnection(Me._quotationTableAdapter.Connection) = false)) Then
27085                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27086                         "tring.")
27087             End If
27088             If ((Not (Me._quotation_JoinTableAdapter) Is Nothing) _
27089                         AndAlso (Me.MatchTableAdapterConnection(Me._quotation_JoinTableAdapter.Connection) = false)) Then
27090                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27091                         "tring.")
27092             End If
27093             If ((Not (Me._registrationTableAdapter) Is Nothing) _
27094                         AndAlso (Me.MatchTableAdapterConnection(Me._registrationTableAdapter.Connection) = false)) Then
27095                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27096                         "tring.")
27097             End If
27098             If ((Not (Me._serviceTableAdapter) Is Nothing) _
27099                         AndAlso (Me.MatchTableAdapterConnection(Me._serviceTableAdapter.Connection) = false)) Then
27100                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27101                         "tring.")
27102             End If
27103             If ((Not (Me._sMSSettingTableAdapter) Is Nothing) _
27104                         AndAlso (Me.MatchTableAdapterConnection(Me._sMSSettingTableAdapter.Connection) = false)) Then
27105                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27106                         "tring.")
27107             End If
27108             If ((Not (Me._stockTableAdapter) Is Nothing) _
27109                         AndAlso (Me.MatchTableAdapterConnection(Me._stockTableAdapter.Connection) = false)) Then
27110                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27111                         "tring.")
27112             End If
27113             If ((Not (Me._stock_ProductTableAdapter) Is Nothing) _
27114                         AndAlso (Me.MatchTableAdapterConnection(Me._stock_ProductTableAdapter.Connection) = false)) Then
27115                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27116                         "tring.")
27117             End If
27118             If ((Not (Me._subCategoryTableAdapter) Is Nothing) _
27119                         AndAlso (Me.MatchTableAdapterConnection(Me._subCategoryTableAdapter.Connection) = false)) Then
27120                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27121                         "tring.")
27122             End If
27123             If ((Not (Me._supplierTableAdapter) Is Nothing) _
27124                         AndAlso (Me.MatchTableAdapterConnection(Me._supplierTableAdapter.Connection) = false)) Then
27125                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27126                         "tring.")
27127             End If
27128             If ((Not (Me._temp_StockTableAdapter) Is Nothing) _
27129                         AndAlso (Me.MatchTableAdapterConnection(Me._temp_StockTableAdapter.Connection) = false)) Then
27130                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27131                         "tring.")
27132             End If
27133             If ((Not (Me._voucherTableAdapter) Is Nothing) _
27134                         AndAlso (Me.MatchTableAdapterConnection(Me._voucherTableAdapter.Connection) = false)) Then
27135                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27136                         "tring.")
27137             End If
27138             If ((Not (Me._voucher_OtherDetailsTableAdapter) Is Nothing) _
27139                         AndAlso (Me.MatchTableAdapterConnection(Me._voucher_OtherDetailsTableAdapter.Connection) = false)) Then
27140                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
27141                         "tring.")
27142             End If
27143             Dim workConnection As Global.System.Data.IDbConnection = Me.Connection
27144             If (workConnection Is Nothing) Then
27145                 Throw New Global.System.ApplicationException("TableAdapterManager contains no connection information. Set each TableAdapterMana"& _
27146                         "ger TableAdapter property to a valid TableAdapter instance.")
27147             End If
27148             Dim workConnOpened As Boolean = false
27149             If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _
27150                         = Global.System.Data.ConnectionState.Broken) Then
27151                 workConnection.Close
27152             End If
27153             If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then
27154                 workConnection.Open
27155                 workConnOpened = true
27156             End If
27157             Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction
27158             If (workTransaction Is Nothing) Then
27159                 Throw New Global.System.ApplicationException("The transaction cannot begin. The current data connection does not support transa"& _
27160                         "ctions or the current state is not allowing the transaction to begin.")
27161             End If
27162             Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
27163             Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
27164             Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)()
27165             Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)()
27166             Dim result As Integer = 0
27167             Dim backupDataSet As Global.System.Data.DataSet = Nothing
27168             If Me.BackupDataSetBeforeUpdate Then
27169                 backupDataSet = New Global.System.Data.DataSet()
27170                 backupDataSet.Merge(dataSet)
27171             End If
27172             Try
27173                 '---- Prepare for update -----------
27174                 '
27175                 If (Not (Me._activationTableAdapter) Is Nothing) Then
27176                     revertConnections.Add(Me._activationTableAdapter, Me._activationTableAdapter.Connection)
27177                     Me._activationTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27178                     Me._activationTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27179                     If Me._activationTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27180                         Me._activationTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27181                         adaptersWithAcceptChangesDuringUpdate.Add(Me._activationTableAdapter.Adapter)
27182                     End If
27183                 End If
27184                 If (Not (Me._categoryTableAdapter) Is Nothing) Then
27185                     revertConnections.Add(Me._categoryTableAdapter, Me._categoryTableAdapter.Connection)
27186                     Me._categoryTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27187                     Me._categoryTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27188                     If Me._categoryTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27189                         Me._categoryTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27190                         adaptersWithAcceptChangesDuringUpdate.Add(Me._categoryTableAdapter.Adapter)
27191                     End If
27192                 End If
27193                 If (Not (Me._companyTableAdapter) Is Nothing) Then
27194                     revertConnections.Add(Me._companyTableAdapter, Me._companyTableAdapter.Connection)
27195                     Me._companyTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27196                     Me._companyTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27197                     If Me._companyTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27198                         Me._companyTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27199                         adaptersWithAcceptChangesDuringUpdate.Add(Me._companyTableAdapter.Adapter)
27200                     End If
27201                 End If
27202                 If (Not (Me._company_ContactsTableAdapter) Is Nothing) Then
27203                     revertConnections.Add(Me._company_ContactsTableAdapter, Me._company_ContactsTableAdapter.Connection)
27204                     Me._company_ContactsTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27205                     Me._company_ContactsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27206                     If Me._company_ContactsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27207                         Me._company_ContactsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27208                         adaptersWithAcceptChangesDuringUpdate.Add(Me._company_ContactsTableAdapter.Adapter)
27209                     End If
27210                 End If
27211                 If (Not (Me._customerTableAdapter) Is Nothing) Then
27212                     revertConnections.Add(Me._customerTableAdapter, Me._customerTableAdapter.Connection)
27213                     Me._customerTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27214                     Me._customerTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27215                     If Me._customerTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27216                         Me._customerTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27217                         adaptersWithAcceptChangesDuringUpdate.Add(Me._customerTableAdapter.Adapter)
27218                     End If
27219                 End If
27220                 If (Not (Me._invoice_PaymentTableAdapter) Is Nothing) Then
27221                     revertConnections.Add(Me._invoice_PaymentTableAdapter, Me._invoice_PaymentTableAdapter.Connection)
27222                     Me._invoice_PaymentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27223                     Me._invoice_PaymentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27224                     If Me._invoice_PaymentTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27225                         Me._invoice_PaymentTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27226                         adaptersWithAcceptChangesDuringUpdate.Add(Me._invoice_PaymentTableAdapter.Adapter)
27227                     End If
27228                 End If
27229                 If (Not (Me._invoice_ProductTableAdapter) Is Nothing) Then
27230                     revertConnections.Add(Me._invoice_ProductTableAdapter, Me._invoice_ProductTableAdapter.Connection)
27231                     Me._invoice_ProductTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27232                     Me._invoice_ProductTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27233                     If Me._invoice_ProductTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27234                         Me._invoice_ProductTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27235                         adaptersWithAcceptChangesDuringUpdate.Add(Me._invoice_ProductTableAdapter.Adapter)
27236                     End If
27237                 End If
27238                 If (Not (Me._invoice1_PaymentTableAdapter) Is Nothing) Then
27239                     revertConnections.Add(Me._invoice1_PaymentTableAdapter, Me._invoice1_PaymentTableAdapter.Connection)
27240                     Me._invoice1_PaymentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27241                     Me._invoice1_PaymentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27242                     If Me._invoice1_PaymentTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27243                         Me._invoice1_PaymentTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27244                         adaptersWithAcceptChangesDuringUpdate.Add(Me._invoice1_PaymentTableAdapter.Adapter)
27245                     End If
27246                 End If
27247                 If (Not (Me._invoice1_ProductTableAdapter) Is Nothing) Then
27248                     revertConnections.Add(Me._invoice1_ProductTableAdapter, Me._invoice1_ProductTableAdapter.Connection)
27249                     Me._invoice1_ProductTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27250                     Me._invoice1_ProductTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27251                     If Me._invoice1_ProductTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27252                         Me._invoice1_ProductTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27253                         adaptersWithAcceptChangesDuringUpdate.Add(Me._invoice1_ProductTableAdapter.Adapter)
27254                     End If
27255                 End If
27256                 If (Not (Me._invoiceInfoTableAdapter) Is Nothing) Then
27257                     revertConnections.Add(Me._invoiceInfoTableAdapter, Me._invoiceInfoTableAdapter.Connection)
27258                     Me._invoiceInfoTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27259                     Me._invoiceInfoTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27260                     If Me._invoiceInfoTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27261                         Me._invoiceInfoTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27262                         adaptersWithAcceptChangesDuringUpdate.Add(Me._invoiceInfoTableAdapter.Adapter)
27263                     End If
27264                 End If
27265                 If (Not (Me._invoiceInfo1TableAdapter) Is Nothing) Then
27266                     revertConnections.Add(Me._invoiceInfo1TableAdapter, Me._invoiceInfo1TableAdapter.Connection)
27267                     Me._invoiceInfo1TableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27268                     Me._invoiceInfo1TableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27269                     If Me._invoiceInfo1TableAdapter.Adapter.AcceptChangesDuringUpdate Then
27270                         Me._invoiceInfo1TableAdapter.Adapter.AcceptChangesDuringUpdate = false
27271                         adaptersWithAcceptChangesDuringUpdate.Add(Me._invoiceInfo1TableAdapter.Adapter)
27272                     End If
27273                 End If
27274                 If (Not (Me._logsTableAdapter) Is Nothing) Then
27275                     revertConnections.Add(Me._logsTableAdapter, Me._logsTableAdapter.Connection)
27276                     Me._logsTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27277                     Me._logsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27278                     If Me._logsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27279                         Me._logsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27280                         adaptersWithAcceptChangesDuringUpdate.Add(Me._logsTableAdapter.Adapter)
27281                     End If
27282                 End If
27283                 If (Not (Me._productTableAdapter) Is Nothing) Then
27284                     revertConnections.Add(Me._productTableAdapter, Me._productTableAdapter.Connection)
27285                     Me._productTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27286                     Me._productTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27287                     If Me._productTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27288                         Me._productTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27289                         adaptersWithAcceptChangesDuringUpdate.Add(Me._productTableAdapter.Adapter)
27290                     End If
27291                 End If
27292                 If (Not (Me._product_JoinTableAdapter) Is Nothing) Then
27293                     revertConnections.Add(Me._product_JoinTableAdapter, Me._product_JoinTableAdapter.Connection)
27294                     Me._product_JoinTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27295                     Me._product_JoinTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27296                     If Me._product_JoinTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27297                         Me._product_JoinTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27298                         adaptersWithAcceptChangesDuringUpdate.Add(Me._product_JoinTableAdapter.Adapter)
27299                     End If
27300                 End If
27301                 If (Not (Me._quotationTableAdapter) Is Nothing) Then
27302                     revertConnections.Add(Me._quotationTableAdapter, Me._quotationTableAdapter.Connection)
27303                     Me._quotationTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27304                     Me._quotationTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27305                     If Me._quotationTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27306                         Me._quotationTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27307                         adaptersWithAcceptChangesDuringUpdate.Add(Me._quotationTableAdapter.Adapter)
27308                     End If
27309                 End If
27310                 If (Not (Me._quotation_JoinTableAdapter) Is Nothing) Then
27311                     revertConnections.Add(Me._quotation_JoinTableAdapter, Me._quotation_JoinTableAdapter.Connection)
27312                     Me._quotation_JoinTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27313                     Me._quotation_JoinTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27314                     If Me._quotation_JoinTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27315                         Me._quotation_JoinTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27316                         adaptersWithAcceptChangesDuringUpdate.Add(Me._quotation_JoinTableAdapter.Adapter)
27317                     End If
27318                 End If
27319                 If (Not (Me._registrationTableAdapter) Is Nothing) Then
27320                     revertConnections.Add(Me._registrationTableAdapter, Me._registrationTableAdapter.Connection)
27321                     Me._registrationTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27322                     Me._registrationTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27323                     If Me._registrationTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27324                         Me._registrationTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27325                         adaptersWithAcceptChangesDuringUpdate.Add(Me._registrationTableAdapter.Adapter)
27326                     End If
27327                 End If
27328                 If (Not (Me._serviceTableAdapter) Is Nothing) Then
27329                     revertConnections.Add(Me._serviceTableAdapter, Me._serviceTableAdapter.Connection)
27330                     Me._serviceTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27331                     Me._serviceTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27332                     If Me._serviceTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27333                         Me._serviceTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27334                         adaptersWithAcceptChangesDuringUpdate.Add(Me._serviceTableAdapter.Adapter)
27335                     End If
27336                 End If
27337                 If (Not (Me._sMSSettingTableAdapter) Is Nothing) Then
27338                     revertConnections.Add(Me._sMSSettingTableAdapter, Me._sMSSettingTableAdapter.Connection)
27339                     Me._sMSSettingTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27340                     Me._sMSSettingTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27341                     If Me._sMSSettingTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27342                         Me._sMSSettingTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27343                         adaptersWithAcceptChangesDuringUpdate.Add(Me._sMSSettingTableAdapter.Adapter)
27344                     End If
27345                 End If
27346                 If (Not (Me._stockTableAdapter) Is Nothing) Then
27347                     revertConnections.Add(Me._stockTableAdapter, Me._stockTableAdapter.Connection)
27348                     Me._stockTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27349                     Me._stockTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27350                     If Me._stockTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27351                         Me._stockTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27352                         adaptersWithAcceptChangesDuringUpdate.Add(Me._stockTableAdapter.Adapter)
27353                     End If
27354                 End If
27355                 If (Not (Me._stock_ProductTableAdapter) Is Nothing) Then
27356                     revertConnections.Add(Me._stock_ProductTableAdapter, Me._stock_ProductTableAdapter.Connection)
27357                     Me._stock_ProductTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27358                     Me._stock_ProductTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27359                     If Me._stock_ProductTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27360                         Me._stock_ProductTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27361                         adaptersWithAcceptChangesDuringUpdate.Add(Me._stock_ProductTableAdapter.Adapter)
27362                     End If
27363                 End If
27364                 If (Not (Me._subCategoryTableAdapter) Is Nothing) Then
27365                     revertConnections.Add(Me._subCategoryTableAdapter, Me._subCategoryTableAdapter.Connection)
27366                     Me._subCategoryTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27367                     Me._subCategoryTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27368                     If Me._subCategoryTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27369                         Me._subCategoryTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27370                         adaptersWithAcceptChangesDuringUpdate.Add(Me._subCategoryTableAdapter.Adapter)
27371                     End If
27372                 End If
27373                 If (Not (Me._supplierTableAdapter) Is Nothing) Then
27374                     revertConnections.Add(Me._supplierTableAdapter, Me._supplierTableAdapter.Connection)
27375                     Me._supplierTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27376                     Me._supplierTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27377                     If Me._supplierTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27378                         Me._supplierTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27379                         adaptersWithAcceptChangesDuringUpdate.Add(Me._supplierTableAdapter.Adapter)
27380                     End If
27381                 End If
27382                 If (Not (Me._temp_StockTableAdapter) Is Nothing) Then
27383                     revertConnections.Add(Me._temp_StockTableAdapter, Me._temp_StockTableAdapter.Connection)
27384                     Me._temp_StockTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27385                     Me._temp_StockTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27386                     If Me._temp_StockTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27387                         Me._temp_StockTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27388                         adaptersWithAcceptChangesDuringUpdate.Add(Me._temp_StockTableAdapter.Adapter)
27389                     End If
27390                 End If
27391                 If (Not (Me._voucherTableAdapter) Is Nothing) Then
27392                     revertConnections.Add(Me._voucherTableAdapter, Me._voucherTableAdapter.Connection)
27393                     Me._voucherTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27394                     Me._voucherTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27395                     If Me._voucherTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27396                         Me._voucherTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27397                         adaptersWithAcceptChangesDuringUpdate.Add(Me._voucherTableAdapter.Adapter)
27398                     End If
27399                 End If
27400                 If (Not (Me._voucher_OtherDetailsTableAdapter) Is Nothing) Then
27401                     revertConnections.Add(Me._voucher_OtherDetailsTableAdapter, Me._voucher_OtherDetailsTableAdapter.Connection)
27402                     Me._voucher_OtherDetailsTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
27403                     Me._voucher_OtherDetailsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
27404                     If Me._voucher_OtherDetailsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
27405                         Me._voucher_OtherDetailsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
27406                         adaptersWithAcceptChangesDuringUpdate.Add(Me._voucher_OtherDetailsTableAdapter.Adapter)
27407                     End If
27408                 End If
27409                 '
27410                 '---- Perform updates -----------
27411                 '
27412                 If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then
27413                     result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
27414                     result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
27415                 Else
27416                     result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
27417                     result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
27418                 End If
27419                 result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows))
27420                 '
27421                 '---- Commit updates -----------
27422                 '
27423                 workTransaction.Commit
27424                 If (0 < allAddedRows.Count) Then
27425                     Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
27426                     allAddedRows.CopyTo(rows)
27427                     Dim i As Integer = 0
27428                     Do While (i < rows.Length)
27429                         Dim row As Global.System.Data.DataRow = rows(i)
27430                         row.AcceptChanges
27431                         i = (i + 1)
27432                     Loop
27433                 End If
27434                 If (0 < allChangedRows.Count) Then
27435                     Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow
27436                     allChangedRows.CopyTo(rows)
27437                     Dim i As Integer = 0
27438                     Do While (i < rows.Length)
27439                         Dim row As Global.System.Data.DataRow = rows(i)
27440                         row.AcceptChanges
27441                         i = (i + 1)
27442                     Loop
27443                 End If
27444             Catch ex As Global.System.Exception
27445                 workTransaction.Rollback
27446                 '---- Restore the dataset -----------
27447                 If Me.BackupDataSetBeforeUpdate Then
27448                     Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing))
27449                     dataSet.Clear
27450                     dataSet.Merge(backupDataSet)
27451                 Else
27452                     If (0 < allAddedRows.Count) Then
27453                         Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
27454                         allAddedRows.CopyTo(rows)
27455                         Dim i As Integer = 0
27456                         Do While (i < rows.Length)
27457                             Dim row As Global.System.Data.DataRow = rows(i)
27458                             row.AcceptChanges
27459                             row.SetAdded
27460                             i = (i + 1)
27461                         Loop
27462                     End If
27463                 End If
27464                 Throw ex
27465             Finally
27466                 If workConnOpened Then
27467                     workConnection.Close
27468                 End If
27469                 If (Not (Me._activationTableAdapter) Is Nothing) Then
27470                     Me._activationTableAdapter.Connection = CType(revertConnections(Me._activationTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27471                     Me._activationTableAdapter.Transaction = Nothing
27472                 End If
27473                 If (Not (Me._categoryTableAdapter) Is Nothing) Then
27474                     Me._categoryTableAdapter.Connection = CType(revertConnections(Me._categoryTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27475                     Me._categoryTableAdapter.Transaction = Nothing
27476                 End If
27477                 If (Not (Me._companyTableAdapter) Is Nothing) Then
27478                     Me._companyTableAdapter.Connection = CType(revertConnections(Me._companyTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27479                     Me._companyTableAdapter.Transaction = Nothing
27480                 End If
27481                 If (Not (Me._company_ContactsTableAdapter) Is Nothing) Then
27482                     Me._company_ContactsTableAdapter.Connection = CType(revertConnections(Me._company_ContactsTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27483                     Me._company_ContactsTableAdapter.Transaction = Nothing
27484                 End If
27485                 If (Not (Me._customerTableAdapter) Is Nothing) Then
27486                     Me._customerTableAdapter.Connection = CType(revertConnections(Me._customerTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27487                     Me._customerTableAdapter.Transaction = Nothing
27488                 End If
27489                 If (Not (Me._invoice_PaymentTableAdapter) Is Nothing) Then
27490                     Me._invoice_PaymentTableAdapter.Connection = CType(revertConnections(Me._invoice_PaymentTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27491                     Me._invoice_PaymentTableAdapter.Transaction = Nothing
27492                 End If
27493                 If (Not (Me._invoice_ProductTableAdapter) Is Nothing) Then
27494                     Me._invoice_ProductTableAdapter.Connection = CType(revertConnections(Me._invoice_ProductTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27495                     Me._invoice_ProductTableAdapter.Transaction = Nothing
27496                 End If
27497                 If (Not (Me._invoice1_PaymentTableAdapter) Is Nothing) Then
27498                     Me._invoice1_PaymentTableAdapter.Connection = CType(revertConnections(Me._invoice1_PaymentTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27499                     Me._invoice1_PaymentTableAdapter.Transaction = Nothing
27500                 End If
27501                 If (Not (Me._invoice1_ProductTableAdapter) Is Nothing) Then
27502                     Me._invoice1_ProductTableAdapter.Connection = CType(revertConnections(Me._invoice1_ProductTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27503                     Me._invoice1_ProductTableAdapter.Transaction = Nothing
27504                 End If
27505                 If (Not (Me._invoiceInfoTableAdapter) Is Nothing) Then
27506                     Me._invoiceInfoTableAdapter.Connection = CType(revertConnections(Me._invoiceInfoTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27507                     Me._invoiceInfoTableAdapter.Transaction = Nothing
27508                 End If
27509                 If (Not (Me._invoiceInfo1TableAdapter) Is Nothing) Then
27510                     Me._invoiceInfo1TableAdapter.Connection = CType(revertConnections(Me._invoiceInfo1TableAdapter),Global.System.Data.SqlClient.SqlConnection)
27511                     Me._invoiceInfo1TableAdapter.Transaction = Nothing
27512                 End If
27513                 If (Not (Me._logsTableAdapter) Is Nothing) Then
27514                     Me._logsTableAdapter.Connection = CType(revertConnections(Me._logsTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27515                     Me._logsTableAdapter.Transaction = Nothing
27516                 End If
27517                 If (Not (Me._productTableAdapter) Is Nothing) Then
27518                     Me._productTableAdapter.Connection = CType(revertConnections(Me._productTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27519                     Me._productTableAdapter.Transaction = Nothing
27520                 End If
27521                 If (Not (Me._product_JoinTableAdapter) Is Nothing) Then
27522                     Me._product_JoinTableAdapter.Connection = CType(revertConnections(Me._product_JoinTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27523                     Me._product_JoinTableAdapter.Transaction = Nothing
27524                 End If
27525                 If (Not (Me._quotationTableAdapter) Is Nothing) Then
27526                     Me._quotationTableAdapter.Connection = CType(revertConnections(Me._quotationTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27527                     Me._quotationTableAdapter.Transaction = Nothing
27528                 End If
27529                 If (Not (Me._quotation_JoinTableAdapter) Is Nothing) Then
27530                     Me._quotation_JoinTableAdapter.Connection = CType(revertConnections(Me._quotation_JoinTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27531                     Me._quotation_JoinTableAdapter.Transaction = Nothing
27532                 End If
27533                 If (Not (Me._registrationTableAdapter) Is Nothing) Then
27534                     Me._registrationTableAdapter.Connection = CType(revertConnections(Me._registrationTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27535                     Me._registrationTableAdapter.Transaction = Nothing
27536                 End If
27537                 If (Not (Me._serviceTableAdapter) Is Nothing) Then
27538                     Me._serviceTableAdapter.Connection = CType(revertConnections(Me._serviceTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27539                     Me._serviceTableAdapter.Transaction = Nothing
27540                 End If
27541                 If (Not (Me._sMSSettingTableAdapter) Is Nothing) Then
27542                     Me._sMSSettingTableAdapter.Connection = CType(revertConnections(Me._sMSSettingTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27543                     Me._sMSSettingTableAdapter.Transaction = Nothing
27544                 End If
27545                 If (Not (Me._stockTableAdapter) Is Nothing) Then
27546                     Me._stockTableAdapter.Connection = CType(revertConnections(Me._stockTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27547                     Me._stockTableAdapter.Transaction = Nothing
27548                 End If
27549                 If (Not (Me._stock_ProductTableAdapter) Is Nothing) Then
27550                     Me._stock_ProductTableAdapter.Connection = CType(revertConnections(Me._stock_ProductTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27551                     Me._stock_ProductTableAdapter.Transaction = Nothing
27552                 End If
27553                 If (Not (Me._subCategoryTableAdapter) Is Nothing) Then
27554                     Me._subCategoryTableAdapter.Connection = CType(revertConnections(Me._subCategoryTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27555                     Me._subCategoryTableAdapter.Transaction = Nothing
27556                 End If
27557                 If (Not (Me._supplierTableAdapter) Is Nothing) Then
27558                     Me._supplierTableAdapter.Connection = CType(revertConnections(Me._supplierTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27559                     Me._supplierTableAdapter.Transaction = Nothing
27560                 End If
27561                 If (Not (Me._temp_StockTableAdapter) Is Nothing) Then
27562                     Me._temp_StockTableAdapter.Connection = CType(revertConnections(Me._temp_StockTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27563                     Me._temp_StockTableAdapter.Transaction = Nothing
27564                 End If
27565                 If (Not (Me._voucherTableAdapter) Is Nothing) Then
27566                     Me._voucherTableAdapter.Connection = CType(revertConnections(Me._voucherTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27567                     Me._voucherTableAdapter.Transaction = Nothing
27568                 End If
27569                 If (Not (Me._voucher_OtherDetailsTableAdapter) Is Nothing) Then
27570                     Me._voucher_OtherDetailsTableAdapter.Connection = CType(revertConnections(Me._voucher_OtherDetailsTableAdapter),Global.System.Data.SqlClient.SqlConnection)
27571                     Me._voucher_OtherDetailsTableAdapter.Transaction = Nothing
27572                 End If
27573                 If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then
27574                     Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter
27575                     adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters)
27576                     Dim i As Integer = 0
27577                     Do While (i < adapters.Length)
27578                         Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i)
27579                         adapter.AcceptChangesDuringUpdate = true
27580                         i = (i + 1)
27581                     Loop
27582                 End If
27583             End Try
27584             Return result
27585         End Function
27586         
27587         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27588          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27589         Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
27590             Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst))
27591         End Sub
27592         
27593         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27594          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27595         Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean
27596             If (Not (Me._connection) Is Nothing) Then
27597                 Return true
27598             End If
27599             If ((Me.Connection Is Nothing) _
27600                         OrElse (inputConnection Is Nothing)) Then
27601                 Return true
27602             End If
27603             If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then
27604                 Return true
27605             End If
27606             Return false
27607         End Function
27608         
27609         '''<summary>
27610         '''Update Order Option
27611         '''</summary>
27612         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27613         Public Enum UpdateOrderOption
27614             
27615             InsertUpdateDelete = 0
27616             
27617             UpdateInsertDelete = 1
27618         End Enum
27619         
27620         '''<summary>
27621         '''Used to sort self-referenced table's rows
27622         '''</summary>
27623         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27624         Private Class SelfReferenceComparer
27625             Inherits Object
27626             Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow)
27627             
27628             Private _relation As Global.System.Data.DataRelation
27629             
27630             Private _childFirst As Integer
27631             
27632             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27633              Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27634             Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
27635                 MyBase.New
27636                 Me._relation = relation
27637                 If childFirst Then
27638                     Me._childFirst = -1
27639                 Else
27640                     Me._childFirst = 1
27641                 End If
27642             End Sub
27643             
27644             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27645              Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27646             Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow
27647                 Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing))
27648                 Dim root As Global.System.Data.DataRow = row
27649                 distance = 0
27650
27651                 Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)()
27652                 traversedRows(row) = row
27653
27654                 Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
27655
27656                 Do While ((Not (parent) Is Nothing) _
27657                             AndAlso (traversedRows.ContainsKey(parent) = false))
27658                     distance = (distance + 1)
27659                     root = parent
27660                     traversedRows(parent) = parent
27661                     parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
27662
27663                 Loop
27664
27665                 If (distance = 0) Then
27666                     traversedRows.Clear
27667                     traversedRows(row) = row
27668                     parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
27669
27670                     Do While ((Not (parent) Is Nothing) _
27671                                 AndAlso (traversedRows.ContainsKey(parent) = false))
27672                         distance = (distance + 1)
27673                         root = parent
27674                         traversedRows(parent) = parent
27675                         parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
27676
27677                     Loop
27678                 End If
27679
27680                 Return root
27681             End Function
27682             
27683             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27684              Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
27685             Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare
27686                 If Object.ReferenceEquals(row1, row2) Then
27687                     Return 0
27688                 End If
27689                 If (row1 Is Nothing) Then
27690                     Return -1
27691                 End If
27692                 If (row2 Is Nothing) Then
27693                     Return 1
27694                 End If
27695
27696                 Dim distance1 As Integer = 0
27697                 Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1)
27698
27699                 Dim distance2 As Integer = 0
27700                 Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2)
27701
27702                 If Object.ReferenceEquals(root1, root2) Then
27703                     Return (Me._childFirst * distance1.CompareTo(distance2))
27704                 Else
27705                     Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _
27706                                     AndAlso (Not (root2.Table) Is Nothing)))
27707                     If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then
27708                         Return -1
27709                     Else
27710                         Return 1
27711                     End If
27712                 End If
27713             End Function
27714         End Class
27715     End Class
27716 End Namespace


Web, Tìm kết quả nhanh

Kích thước hoặc độ phức tạp của bản gửi này, tác giả đã gửi nó dưới dạng tệp .zip để rút ngắn thời gian tải xuống của bạn. Sau khi tải xuống, bạn sẽ cần một chương trình như Winzip để giải nén nó.

Tất cả các tệp đều được codefly.vn quét mỗi ngày một lần để tìm vi-rút, nhưng vi-rút mới xuất hiện hàng ngày nên không có chương trình phòng ngừa nào có thể bắt được 100% chúng.

ĐỂ AN TOÀN CỦA CHÍNH BẠN, VUI LÒNG:

1. Quét lại các tệp đã tải xuống bằng trình kiểm tra vi-rút cá nhân của bạn trước khi sử dụng.

2. KHÔNG BAO GIỜ, chạy các tệp đã biên dịch (.exe's, .ocx's, .dll's, v.v.)--chỉ chạy code mà bạn đã xem ít nhất 1 lần.

Official Website:

https://www.techprofree.com/.....c-with-source-code/

Gõ tìm kiếm nhanh...



Dự án liên quan!

Cách tạo đồng hồ bấm giờ trong C#

66 lượt xem

Hệ thống quản lý hàng tồn kho sử dụng cơ sở dữ liệu VB.NET và MySQL với mã nguồn

67 lượt xem

Đếm nguyên âm và phụ âm

110 lượt xem

Phần mềm quản lý nhân viên hiện đại sử dụng C#.net và Bunifu Framework với Full Source Code (2020)

170 lượt xem

Hệ thống quản lý đại học bằng C# với mã nguồn đầy đủ

134 lượt xem

Hệ thống quản lý bệnh viện bằng C# với mã nguồn đầy đủ

152 lượt xem